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Foreword — by 
Tim Hartnell 


Explosive games. Sounds exciting, doesn’t it? In this book 
you'll find many great, great games to keep you locked to 
your ZX81 for hours. 


This book has listings for every game we thought you might 
want, including GALACTIC INTRUDERS, BREAKOUT, 
DRAUGHTS/CHECKERS, STAR TREK, DEATH MAZE, 
4-IN-A-ROW and an 8K ADVENTURE-type program 
SMUGGLERS BOLD. As well, there are a host of new 
games, and adaptations of old favourites. Many of the 
programs will run in just 1K (including a simplified SPACE 
INVADERS-type program). 


Some of the games are based on chance — the dreaded 
Sinclair random number generator — and others depend on 
skill, both yours and the computer. But we've tried to 
ensure that each and every program contains at least one 
programming technique which you'll be able to adapt for 
your own programs. 


You can, if you like, just enter the programs as listed, and 
play them. However, you're likely to get much more 
enjoyment from working with them, altering them as you 
choose, deleting some sections, improving others, and so 
on, until the game carries your personal stamp. Many of the 
1K games can be improved if you have extra memory. At 
the very least, the player prompts can be made more “‘user- 
friendly’, and the rules explained more exactly. 


You should learn a lot from careful examinations of the 
listings. We've included a brief preface to each program, 
which is designed to explain —if it's not immediately 
evident from pressing RUN — how to play the game. For 


3 


some programs, we've also added a few words to clarify the 
algorithm used. 


Colin Hughes of Luton and | wrote most of the games, with 
others from G D Charlton of Romford, 


I'd like to thank these programmers, especially Colin, for 
their contributions, and also thank members of the National 
ZX80 and ZX81 Users’ Club for the enthusiasm and 
friendliness they’ve shown in the past 18 months or so. 


If we haven't yet had the pleasure of meeting you at a 
computer show, please come to the club stand at the next 
show and make yourself known. And if you haven't yet 
joined the club — which is probably the largest single users’ 


club in the UK — why not think about joining? We publish a 
monthly magazine INTERFACE, which is chock-a-block 
with ZX80, ZX81, ATOM and PROTON news, along with 
many programs for each machine, software, hardware and 
book reviews, contact addresses, letters from members, 
competitions and more. An application form for the club is 
near the back of this book. 


Looking forward to hearing from you, 
TIM HARTNELL 
London, November 1981. 


DEATH MAZE 


The ZX81 generates a maze, as you can see in the printout. 
You (the $ sign) start at the left hand side. You must get to 
the right as quickly as possible, using ‘‘Q” (up), “’Z’’ (down) 
and ‘‘L” (right). The score is being decremented all the 
time. 





ND OF ROUND. SCORE Gcce 
BEST SO FAR: 6282 





O OF ROUND. SCORE: 
BEST SO FAR: 6516 





If you hit a black line (rather than going through the space), 
the score drops dramatically. If you hit any border (except 
the right hand one), that round of the game is automatically 
terminated. 


There is a highest score feature, and you should be able to 
get a score greater than 13504 with practice. Delete the 
FAST (10) and SLOW (9490) lines if you want to see the 
2X81 build the DEATH MAZE between each round. 


3 LET u=@ 

1@ FAST 

15 FOR 8=2 TO 28 STEP 2 
2a FOR A=e TO 19 

30 PR INT AT A ye 


aa NEXT 
45 PRINT AT RND+#144+3,6;"° ” 

S@Q NEXT B 

68 FOR A=-a oS. =o _ 
7@ PRINT AT 2S"; AT 19,A; “R 


89 NEXT A 
OG FOR B=1 TO 18 
10@ PRINT AT B,G6; “#"S AT B,30; “# 


11@ NEXT 6 
128 GOSUB 3880 


67 
15@ PRINT AT 8,8; “B" 
160 PRINT AT 20,0; "SCORE: "32; “ 


16S RETURN 
167 LET ZS=INKEY$ 
17Q@ IF gs ee a LET Z$#=A$ 


215 REM DELETE NEXT LINE FOR 
FASTER GAME 

2i7 LET R=RND#RNDOFRND 

22avu LET A=At+ (ZG "2°) -(2R="O") 

23@ LET 8=6+ (7$="L") 

232 PRINT AT Y.x%;s" “ 

233 IF PEEK (PEEK 163964+2562PEE 
K 163974+332A+B4+1) =1258 THEN GOSUS 


158 

235 PRINT AT A.B." 

255 IF A>18 OR Ate on 6<1 THEN 
LET Z=INT (243) 

26Q@ IF ATSB AR A<«2e OR Bti1t OR B> 
29 THEN GQTOQ 3510 


4990 LET AS=Z2H 

5@@ GOTO 167 

$190 PRINT AT 20,0; "END OF ROUND 
SCORE: “:2Z 

S26 IF 220 THEN LET U=Z 

S3@ FOR G=1 TO 6 

34@ PRINT AT 21.3. “BEST SO FAR: 


>U 
$45 PRINT AT A,B; “BAT A.B" S" 
‘Ss 





ASTER-DIVE 


You are in control of a swinging line of asterisks, which you 
must guide -- using ’’M” and “Z"’ -- through randomly 
appearing blobs. The longer you last, the higher your score, 
which appears at the end of the game. You should be able to 
get more than 275. This is for a 1K ZX81. 


40 LET X=PL4PRE 

15 LET U=x -x 

2Q LET Y=x+4+Pr 

3@ LET Z=Yry 

40 PRINT AT Y.Xi#" 

S@ SCROLL 

6@ Ler ee a Ee oe “NM AND X<3S 
@)~CINKEYS="Z2" AND XPT) 

62 LET UsUes 

65 IF RNO>.?7? THEN GOTO 4@ 

78 PRINT AT RND#21S+1+5,RNC#SO; “KE 


S$@ PRINT AT RND415+5.RND#30; "KR 


96 PRINT AT Y, 

41@ IF PEEK (PEEK 16396 +256 *#PEE 
K 16399) <>8 joe GOTO 48 

12@ PRINT 


ae 


STAR TREK 


This is a fascinating, and somewhat addictive game, in 
which you patrol a sector of the galaxy, in charge of a space 
ship crewed by such well-known spacers as Dr Spock, 
Scottie, Lt. Uhura, Chekov and Sulu. (Note that these 
names, and the name STAR TREK, are trademarks of Para- ° 
mount Pictures Corporation.) There are 20 or so aliens in 


this sector of the galaxy. You are the dollar sign on the 
display. 


ie | | 

23456 7090 eR 

eras Caer 1S YOUR OR ; 
S 1h? 


bed 

- $CAN 
4 ~ ROVE 
3 FIRE 





At any time, you move, scan or fire. You can move one 
square at a time north/south or east/west, and can fire only 
into the next square. 


Your scanners operate in two ways: 

SHORT RANGE looks into the eight squares immediately 
- surrounding you; and 

LONG RANGE looks, in the specified direction, at a single 


square two squares away from you. 


If you land on an alien ship the game is over. When you hit 
an alien, an inverse asterisk appears in its location, and your 
ALIEN KILL TOTAL is incremented. If there is no alien in 
that square, an inverse X appears so you know not to bother 
with that square again. The aliens do not move around 
during the course of a game. You have limited reserves in 
your energy bank and must try and kill as many aliens as you 
can before your energy runs out. 


Careful use of your scanners can make sure you (a) waste as 
few shots as possible; and (b) don’t land on an alien. Note 


Pe HUMAN 
BRS x08 OF Ot as 


BROCK : 





that long-range scanning uses up more energy than does 
short-range. 


An alien can only shoot back after you have fired your laser 
at it (which reveals your position) and if the alien is within a 
single square of you. Damage to your ship from an accurate 
alien shot is shown in energy terms (that is, energy is 
drained from your bank). The game continues until you land 
on an alien ship, or run out of energy. 


10 


2@Q GOSUB 23e@0e 
25 GOSUB Se@e@a@ 
38 GOSUB SSSe 
40 GOQOSUB 78208 


1@0 PRINT “WHAT IS YOUR ORDER.’ 
120 PRINT TAB S; “SIR?"..TAB aS; 
“4 — SCAN": TAB 12:;"2 - HOVE"; TAB 
42;"3 - FIRE" 

428 INPUT © 

458 IF D<2 GR D)3 THEN GOTO 2248 
155 GOSUB 6395e 

168 GOSUB 10@@2#D 

17@ FOR W=1 TO 3e 

288 PRINT AT 20,5; "EERE AT 20 


190 NEXT W 

5eQ@ GOTO 3e . 
1a20 PRINT TAB 4; "BBB SCANNER EB 
133@ GOSUB 75@@ 
16420 PRINT "CLOSE (1) OR “,“LONG 
-RANGE (2), SIR?” 
186@ INPUT’ K 
1980 LET E=E-1@2K 
4892 GOSUB 695e 
11806 IF K=2 THEN GOTG 1580 
1120 ITF A(B+1,C)=1 OR A(B4+1,C+1) 
=i OR A(B,C+i3 =1 GR A(B-1,C) <1 6 
R A(B-1.C-1} =1 OR A(B,C-1) =1 OR 
A(B+1,C-1)=21 OR A(B-1,.C+1) 21 THE 
N PRINT Ze;" IN VICINITY,",. "SIR" 
414498 RETURN 
15@@ GOSUB 75ee 
1520 PRINT AT 15,0; “DIRECTION: N 
~1,. S-2, E-3, W-4? 
1525 PRINT TAB 8: (ENTER A NUNRE 


153@ INPUT WN 
A3540 LET i=-@ 
i566 IF N=1 AND A(B-2.C3} =-1 THEN 


LET 1 
L530 mae N=e2 AND ACB+2,C3}=1 THEN 
3680 IF N=3 AND AI(B.C+#2) =1 THEN 


ET 1 

16206 IF N=4838 AND A(B,C-2) =1 THE 
N LET z=1 

16308 GOSUB 7508 

16423 PRINT “LONG-RANGE SCANNER R 


EPORT IS" 
1660 IF 2=1 THEN PRINT “POSITIVE 


26380 IF Z=@ THEN PRINT “NEGATIVE 


178@ RETURN 
2020 LET E=E£-S5¢@ 


OTING BACK" 
30 F 


3}: 
is 
RECTIQN (NvS) 7" 


THEN LET 6=672 


ane 2B." .°SC 
in Evin oe 


IF AS="E" THEN LET C=Cte 
“NOW AT »6B; “ -C 

IF A(B,C)J=1 THEN GoTo’ 5500 
LET ACB. Ci =2 

LET 6 (B, C) =2 

GOSUB Seee 


GOSUB 75e@0 
CN 


THEN LET G=G6+2 
12, ° (EsW) FT" 


1 
IF AS="N" 
PRINT TAB 


$ 
="E° THEN LET F=F +2 
LET E=E-—-100 
IF A(G,F)} <>1 THEN GOTQ 33ean 
GOSUB 75280 
PRINT “YOU HIT THE “; Zz 
LET AL =AL+1 
LET BtG,F) =4 
RETURN 
GOSUB 7500 
LET BtG,F? = 


MISSED. Sik” 
3@ 


G 
“THE “.2Z2$>," ARE". “SHC 


OR G=1 TO 368 

NEXT G 

GOSUB HaAsa 

IF RND>.&S& THEN GOTO 3400 
“THEY HIT us. srr" 
GOSUB Seee 

LET E-=E-i80602RND 

RETURN 

PRINT “37 2§$." 


RETURN 
SCROL 69o5e@ 


SCROLL 
PRINT “ENERGY BANKS EXHAUST 


“THE MISSED. &S 
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G81S SCROLL 

3528 PRINT “YOU KILLED “; At: * AL 

383@ IF AL<>1 THEN PRINT “S" 

S85@ SCROLL 

3860 PRINT “ON THIS MISSION" 

387@ SCROLL 

38S@ PRINT “YOUR COMMANDER RATIN 

G IS “; INT (AL78s10@) 

3398 GOTO 38@e5 

Sa9@ REM END 

SS8@ GOSUB 69350 

552@ PRINT AT 15,0; "YOUR SHIP HA 

S LANDED ON A",2Z$;" VESSEL" 
RINT OF 15.6; "aie 





6958 PRINT ATF 13,08; " 


6955 PRINT AT 13.0: 

S970 RETURN 

7EeGOQ REM STATUS 

“826 PRINT AT 2,14: “ENERGY BANK: 


NT E.: 
7@3@ IF E<1 THEN GOTO 3800 
7449 IF AL>@ THEN PRINT AT 3.14, 
“"RMLTEN KILL"; AT 4,17; “TALLY: “sR 


iL. 

7FB6O PRINT AT 7.14; "YOU ARE AT “ 
B; 

5270" PRINT AT 6.14;" 


7B7S PRINT AT 8.14. °IN “TC 

7@50 GOSUB 8560 

Fi@@ PRINT “ SECTOR" 

¥120 PRINT AT 12,80; 

¥42O0 RETURN 

7S80@ LET R=INT (RND#5) 

7S520@ IF R=-@ THEN PRINT “SPOCK: S 
So YOU HUMANS Spry, “ 

7540 IF R=1 THEN PRINT “SCOTT: “ 


2560 IF R=2 THEN PRINT “LT. UHUR 
758@ IF R=3 THEN PRINT “CHEKOU: 


ad 

7600 IF R=4 THEN PRINT “SULU: “; 
79300 RETURN 

73393 STOP 

SB@GQO REM PRINT OUT 

B82eQS PRINT AT @.08; 


6916 PRINT " 12345678698" 
320 FOR O=-1 TO 10 
8825 PRINT AT @.,13; “Hv: AT @.13;" 


GE30 IF O8<10 THEN PRINT @;" "sG 
S035 IF 8=10 THEN PRINT ®; 
S040 FOR P=1 TO 19 ane 
80690 IF B8(9,P) =@ THEN PRINT 
,P) =2 THEN PRINT “ 
,P)=3S THEN PRINT “ 
¥P}=4& THEN PRINT “ 


B220 PRINT “ 12345678390" 
URN 


S500 REM SECTOR 
S529 LET @O=64C 
6540 IF 8<¢1@ THEN PRINT “ANTARES 


see IF 9>9 AND 9<2@ THEN PRINT 


esse IF @>19 AND @<¢<3e THEN PRINT 
“PROCYON”; 
ee CeG an 9229 AND ©<4@ THEN PRINT 


8620 IF 9239 AND &<S@ THEN PRINT 
ah or @>49 AND @<6@ THEN PRINT 


8660 IF 9>59 AND ®<786 THEN PRINT 
“SAGITTARIUS” 

See a chix 8? >69 AND acse THEN PRINT 

S870@ IF @>72 AND @<9@ THEN PRINT 
“SIRIUS” 

S726 IF @>89 THEN PRINT “BETELGE 


@ 
902850 LET X=INT (RND #10671) 
9100 LET Y=INT Se eee 


926@ LET E=RND 

tite eal £<.33 THEN LET Z&="BRARK 
9300 IF €>.33 AND E<.66 THEN LET 
7 $="URERKTONIONS 

rhea E>.66 THEN LET 2Z2€="POLLU 
x ee 

9340 LET E=1000+206696RND 

9390@ RETURN 
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DODGEM 


This ts more fun than most car-driving programs. You, an 
inverse Y, have a limited time in which to hit as many asterisks 
as you can. “2” and “‘C” control your car. 





i LET H=0 
S$ ter P=5 
1@ FOR I=1 Ta & 
2@ PRINT TRE 15;" f° 
36 NEXT I 
35S FOR I=1 TO 8S@ 
4@ LET A=-INT (P+RND 5-2) 
41 IF A<@ OR Ad14 THEN LET A=2 
NT CRND #15) 
eo RY Ss poene S,A; "2"; AT &,18; " 


5@ SCROLL 

7@ IF INKEY $="2Z" AND P<c>9@ THEN 
LET P=P-1 

B@ IF INKEYS$="C° AND P<>14 THE 
N LET P=P+2 
vesago P2i=s=PEEK 163964256 sPEEK 

1@2 IF PEEK (P1424P4+32437) <23 TH 
EN GOTO 400 

105 PRINT AT 3,.P; "i" 

41906 PAUSE 15 

141@ NEXT I 

120 PRINT H 

230 STaP 

4008 PRINT AT 2,04; “FFF FSF SBANG EEE 


41@ PRINT AT S.P; “RR” 
42@ PAUSE Sea 

43@ LET H=H?2 

450 GOTO 48 


GALACTIC INTRUDERS 


The INTRUDERS in this game have a fearful weapon - a 
horrid black bird which swoops down at you without 
warning. You use “5” and ‘’8” to move right and left, and 
‘’1'’ to fire. Your score increases with every INTRUDER you 
destroy, and the INTRUDER gets a score every time a black 
bird swoops onto you. The tally at the end is based on the 
difference between your score and the INTRUDERS’ score. 
There is a highest score feature. This game needs more than 


1K. 


Se 
10@ 
400 
4.12 


1065 
T 6G, 

1967 
1278 
19675 


S+i 
L888 


LET U=@ 

GOSUB 93ee0 

FOR N=1 TO 40 

Ir a 1 THEN GOTO 1965 


an 
LET ve =INKEY $ 
IF Z$= zt THEN LET 6=6+1 
IF Z$="S" THEN LET 6=8-1 
IF RND>.4 THEN LET M=1 
IF Z$<> “4° THEN GOTO 19055 
FOR A=19 TO 3S STEP -2 


Ht 


TF M=@ THEN GOTO 1056 

LET MN=@ 

LET @Q= 

IF AS(QI=" “ THEN GOTQ 19856 
FOR E=-3 TO 19 STEP 4 


PRINT AT £.0. “FR. AT E.8; " 
IF INKEY#="S" THEN LET 6=6- 
IF INKEYS$="8" THEN LET 8=6+4 


PRINT AT 2@,8-1;" 8 ™ 
NEXT 
If B=0 THEN LET C=C+21 

IF B=@ THEN GOSUB 5608 

IF M=1 THEN GOTO 1022 

LET AS=-AS(2 TO 3 4AS C1) 

IF 2$<¢<>°2" THEN GOTO 19065 
PRINT AT A.B+tL “2° AT ALB +1 


PRINT AT 2,2, AG: AT 4,06; AE:A 


m 


1:A%.AT 


a4 
IF Z$cr" 4a" THEN GOTO 2500 
NEXT A 

IF AG(B4+23 ¢>° “ THEN LET S= 


PRINT AT 4.6; "2"; AT @,.0; “YG 


ue“; 52641 


15 


16 


20@0@ LET AS(B+e1)2=" “ 
ExT N 


252@Q PRINT AT @,16; "ME “;C#éaa 
3Q@6@ PRINT AT 10,18: “END OF ROUN 


3@O@S LET S=INT (S-C72) 

3010 IF S>U THEN LET U=S5 

3@2@ PRINT “YOUR HIGHEST TALLY: 
", Uz#641 

30@8@ FOR N=1 TO 606 

3090 NEXT WN 


fl 
H)) 
sn 
8 
< 





(18; "BOOM"; AT 10,12; 

S@20 PRINT AT 2@, 8415 HE" aT 220.08 

+1; "BE"; AT 2e, Qe; "x" OT Ba,@ea; " 
AT 20,041; "3" 

ease NEXT J 

86@ PRINT AT @.0@; "ERI “; 54662," 
":0x439 

S1@@ RETURN 

89908 STOP 

901@ LET zg="" 

9020 LET S=8 

3358 LED As="8 BS 8H 


a 

3072 Per 8-15 
9@9@ LET C=@ 
999@ RETURN 


18TH HOLE 


In this 1K game you see a ball and a hole. You enter the 
strength of the shot you think will hole the ball (1 to 100). 
The ball will then move and, if you've been accurate, you 
will actually see it drop into the hole. You might like to adda 
“score card” feature if you have more memory. 





S =@ 
28 LET Js “200 (RND #235) 







9,7; “STROKE?” 
9.75" 


17, nt B woke 
6@ LET J=J+INT (A+ (E6+RND? ) 
7@ GOSUB 228 


6@ LET S=S+2 

85 PRINT AT 5,12; “COUNT “5 

99 IF Ui2?7 THEN GoTo 40 

19@ IF J>27 THEN GOTO 1528 

105 PRINT AT 17,275" “: AT 186,27 


"410 PRINT “YOU SCORED “;S:" ON 


HOLE” 
128 GOTO 168 
15@ PRINT “HOPELESS. YOU OVERSH 


16@ FOR G=1 TO 188 
170 NEXT G 
1806 CLS 


RUN . 
20Q@ PRINT AT 17.9. "0" 
21@ RETURN 





CHECKERS/DRAUGHTS 


This checkers program, adapted for a 16K ZX81 by Tim 
Hartnell from a 1K ZX80 program written by G. D. Charlton, 
of Romford, plays fairly well at the beginning, but falls away 
towards the end of the game. You may like to “teach” it to 
play a little better. You move by entering the numbers 
which flank the square you're moving from (such as 53, in 
which the 5 is along the right hand edge of the board, and 
the 3 is along the top), then NEWLINE, then the square 
you're moving to. The computer will then decide on its 
move (in the FAST mode). The ZX81 goes back into SLOW 
to reprint the board, changing both moves as it does so. 


After each move you'll be asked if you can move again. lf 
not, just press NEWLINE and the ZX81 will move. If you 
can, press any key before pressing NEWLINE and you'll be 
able to move again. The ZX81 makes multiple jumps 


automatically. 








FAST 
GOSUB Sees 
GOTO 436 


=9@ 
=16528 TO i66e? 
FOR X=1 TO 4 


2@ 
IF (€€(%<3 AND R=62) 
(S=S2 OR S=1i2) AND 


OR R=13) 
T=:@ THEN 


4008 
ee © nee 


@tX<3 AND R=61) OR R=13) 
3=@ THEN GOTO 482 

NEXT xX 

NEXT | 
PRINT 
SLOW 
Carte AT @.@: 
INP G 
PRINT AT @.,.4;" 
INPUT H 
PRINT AT @.@;' = 
POKE 165164H. PEEK (G216516.2 
IF H<2@ THEN POKE H+16516,1 


POKE 1651626. 
IF ABS tH- éy; 246 OR ABS (H-G 

THEN POKE 165156? (H+G6)} 2,8 
PRINT AT 17.@; “CRN YOU NOVE 


RA 
“YOU WIN"; O 
“FRON?”" 


"36." To?" 


AGAIN?" 


INPUT AS 
PRINT AT i7,8;" 


IF — >" THEN GOTO 4230 


6e@ 
B+12eD(X},.R 
6.0 


=a 
POKE B+D (xX) ,@ 
LET &=B+220D (X} 
IF 6>46597 THEN GOTO 428 


358 FOR X=1 TO 4 


378 IF ((x<3 AND _R=61) OR Rais? 
AND (S252 OR S=12) AND T=e@ THEN 
GOTO 3e@ 

38Q@NEXT X 

392 GOTO 430 

400 POKE B+D (xX), R 

ag GRRE 

+D (X) 946597 THE 

#D(X) ,13 N POKE & 
425 SLou 

43@ PRINT AT 6.3; — 
44@ FOR A=16517 Ta LG&ai6 
450 PRINT CHRS (PEEK A) j 


4603 IF 1@sINT ( (A+4) 71@) =-RA+d TH 
EN PRINT TAB 8; 

470 NEXT A 

472 PRINT 

a75 IF 2Z=1 THEN GoTo So 

480 GOTO 206 

423A POKE B.13 

saa GOTO 43e 
5000 PIM O04) 
SALi@ LET O(13 =22 
SQPe@ LET Ota) -9 

SGGQ LleT P(3) =-9 

Sede LET O (4) =-i1l 
S@50 FOR J3:126626 TO 16725 
Sace@ POKE J-109,PEEK cf 
507 NEXT J 
SASAQ LET Z2=1 
S220 REN “DRAUGHTS" PORPTED 


YT HARTNELL FROM ZXSQ@ PROGRAM 
By G D CHARLTON, RONFORD 
S198 RAND 

&200 RETURN 


MAHOGANY 


The computer thinks of a number between one andnine (the 
top number displayed). You have to try and anticipate the 
next number it will think of, by touching that number. Your 
number will be displayed underneath the computer's 
number. Under this number is the count of how many goes 
you have had so far. The smaller this number when the game 
stops -- thatis, when you successfully anticipate the ZX81's 
number -- the better. This fits within 1K. 


S LET &=a 
16 LET W=inNTF (RNDF92 43 
15 LET @=WeuU 
25S LET 2=CQCE INKEY §-28 
IF Z@=-26 THEN PRINT AT 12, 


@ IF => @ AND 2419 THEN PRINT 


40 CET a= 8+ 7 
45 PRINT AT EF,Esu 
30 TF W=Z THEN PRINT AT 14,8; " 


68 PRINT AT i4@4.E: 

a= LET M=-INT (RND £5) -INT (RAND = 
SOQ IF M+#U>@ AND M+4WU<2@8@ THE 

T Ws-W4M Pt ea 
926 GOTO 25 


BREAKOUT 


You control the action of the slide at the bottom of the 
screen with the ‘5’ and “8” keys, trying to keep the ball 
bouncing as long as possible. You have nine balls, and 
you'll get an increase in score every time you manage to 
wipe out one of the blobs near the top of the screen. The 
score is changed on the screen each time you lose a ball. 
There are five rows of blobs to knock down. A perfect score 
is 3618. At the end of the game, you'll get a percentage 
“perfection” rating. 


38 GOSUB Seee 

3 te 
SQ IF PEEK (SS4Y4X+1+4+PEEK 1652 
G+t2S6SPEEK 16397) =R THEN GOSUB ? 


SOD 
S@ PRINT AT Y.X;RE_ 
6@ PRINT AT Y.Xi' ; 
51@ PRINT AT 2o,n- i 
S30 IF Y=i OR (Y=19 AND ABS (M- 
*} <3) THEN LET @=-@0 
Tae IF x=2 OR X=30@ THEN LET W=~- 


“s45 oe M=M+ (INKEY $="6") — CINKEY 
*S50 IF Y=20 THEN GOSUB 560606 

6@@ LET Y=Y+8 

610 LET xX=xX+WU 

60008 GOTO 3@ 


1h 





7O8e8 
1. 


RT Yuk; "s 
Q=-@ 


ae AT Y,Xs “iR'; 


IF Y<o1 THEN LET 
LET S=5+6/7 
RETURN 

STOP 

PRINT AT 19,6, " 


PRINT AT 20,8; " 


LET A=-A4+1 

PRINT AT @,7;5 

IF A=166 THEN GOTO 935ea 
AG=CHRE (FAA) 

Y=18 
LET ear a (RND +2644) 
Qa — 7 


L Ws 

IF RND>.5S THEN LET W=-1 
RETURN 

STOP 

PRINT “SCORE: “" 

FOR J=1 TO S54 

PR aNr Ss “S 


xT 
LET A=-156 
LET S=@0 
LET R=136 
RETURN 
PRINT AT 18,2; “YOUR RATING 


PER 


IS "3 INT (54100073618) 710; " 


9510 PRINT TAS 4; "OF GRAND MASTE 
R STATUS" 


CONEY ISLAND 


You have to shoot at the little coney flying across the top of 
the screen. ‘’5'’ and “’8’’ move you left and right, and '’Q’’ 
activates your anti-coney gun. You have just 10 shots, 
although you can alter line 1035 if you want more or less. 
You're rewarded with a satisfying display every time you get 
a coney. At the end of the game the score is printed over 
and over again at random positions. A score of five or more 
is very good. 


21 


22 


& 





hy 

G 

as 

LU 

“| 
MOSVOZDTA 
pore 

D 


ee 


hy 
gj 


45 LET S=p0 


o0 PRINT ATF ALP: 
SS PRINT AT A.B; "R 
S? PRINT AT C,.3S;" _" 
6@ PRINT AT C.D. °F 
6S IF INKEYS$="0"° THEN GOSUB 14a 


aa 
G7 LET P=B 
2 7@,,CET B=B- (INKEY $="6") + CINKEY 
“?5 LET S=D 
8@ LET D=04INT (KERND3 
9@ IF DP<i1 OR D>3@ THEN LET K=- 


100 IF DO<¢1 THEN LET D=2 

110 IF BP>30 THEN LET D=29 

158 GOTO 5e@ 

1Q8@@ LET F=F+1 

1@64 PRINT AT 6,25; “SHOT “;F 
1995 FOR G=18 TO 3 STEP -S 

i910 PRINT AT G, 6." 

i815 PRINT AT G.B;" “™ 

i620 NEXT G 

194235 PRINT AT &.25; aa 
L8Y3Q IF RBS 1B) RBS “{D) =e THEN G 
OSUB 2000 

1435 IF F=10 THEN GOTO 36008 

1240 RETURN 
2AaQga LET M=MN+1 
eee, ee AT 10,10. “YOUR SCORE 
28@7 FOR T=1 To 
2O15 PRINT AT C.. 
2017 PRINT AT C., 
2020 PRINT AT C. 
2Q22 PRINT AT 1. 
2Q25 PRINT AT C,. 
2Q27 PRINT AT 1, 
2O30 NEXT T 
20646 PRINT AT 16,10; " 


2Q50Q RETURN 

SQYUG PRINT AT @,6:; "END OF GAME" 

S@Gi@ PRINT AT RND#20,.RNC415; "You 
SCORED “;M 

3020 GOTO 3016 


DALI 


This is a very simple ““ETCH-A-SKETCH” program for the 
1K ZX81. You use the ‘’5”, 8", ‘6 and ‘’7"’ keys to control 
the movement of the flashing dot to draw pictures of your 
choice. 


1Q@ LET X=15 ( 

20 LET Y=INT (xsPT) 

oO IF INKEYS$="" THEN GaTO 3a 
LET YerY—tINKEY $= os AND Yor 


LET X=X~ CINKEY $="6" AND Koa 
<42@0) 


120 PLOT Y,X 
430 GOTO 76 


PEE K-A-BOO f 
POKE-A-BOO 


The game begins with a ball in motion, and you have to 
control the ball (using the ‘6’ and "7" keys) to hit as many 
black squares as you can. There is a highest score feature, 
but — as the game gets harder as it progresses — it 
becomes more and more difficult to achieve higher scores 
as the game continues. When you’re tired of playing this 
game according to the rules, try to MISS as many black 
squares as possible. 


. oe pie TO 6@ 
36 ORINT AT 34RNDF16,2+RND #29; 


OMAKZAAM 


WH UH nN 


23 





113@ LET Y=10 

421 LET A=x 
exe, acne SSG*CB+A4+1T4PEEK ErtSS64PE 
1146 IF PEEK (8334Y4+X%42+PEEK F+25 
G6*#PEEK F)=128 THEN GOSUB Sag 

120 POKE SSsY+X41+PEEK Es+2563PE 
EK F,S2 

121 LET T=T+3 

122 LET A=xX 

123 IF T>200@ THEN GOSUBR Ste 

124 LET 6B-Y 

13@ LET <X=xX4K 

435 IF X<2 OR X>3@Q THEN LET K=-=- 


136 LET AG=INKEYS 

137 IF AGS=""" THEN LET A$=-83 

138 LET Y=Y-(tAg="7"') Zoot. “6") 
139 IF Y<2 THEN LET AS="6 

249 IF Y?183 THEN LET Ag=" 7" 

156 LET 6&=-AS 

17@ GoTo 117 

500 LET N=N+4+i 

S@2 POKE SS*Y+1xX414+PEEK E+s2S56h4PE 
EK F,189 

$S@S PRINT AT @,.0; "YOUR SCQRE IS 
“SMS AT 2,5: "TINE IS “;T 

Sis FOR 2-1 TO 7? 

S$1S POKE SS#Y+X+14PEEK EF+256+PE 


ae pe SIFY*+X+17+4+PEEK EF +2562PE 
ae POKE SS3S4Y+X+1+PEEK E+256sPE 


y a4 

S22 LET R=117EM 

S25 PRINT AT 20,08; “TALLY IS “;R 
S27? FOR H=1 TO 6 
ERE. je SOSYtX4+1¢4PEEK E+2563PFE 
S29 POKE SS3SsY+Xe1+PEEK E+2562PE 
EK F,.S2 

S30 NEXT WH 

S35 PRINT AT 20,@;" 


240 IF T2200 THEN GOSUB 10am 
S606 PRINT AT @.@;' 


§7@ RETURN 

1@0@ IF R>U THEN LET U=R 

19190 PRINT AT @.0; "GANE OQVER - ¥ 
ene TALLY - “LRAT 1.5: "BEST SO 
1020 FOR H=1 TO 23 

1922 POKE S32#V+4+X4+144+PEEK F+256#PE 
EX F,.189 


1925 POKE S3tyY+1X1i1+PEFEK Fs+PeShsPEe 
EK F,52 


There are two versions of this game listed. In the first one, 
the computer is the inverse letter ‘’C’’ trying to get all its 
pieces from the top of the board (a 5 x 5 grid) to the 
bottom, before the human (the inverse H's) gets all his or 
her pieces to the top. In the second version, you are the 
inverse £ signs, trying to move from left to right and the 
computer is the inverse $ signs trying to move from the top 
of the screen to the bottom. There are no captures in this 
game, and la EDisyelS can move one square in any 





direction (forward, backward, up, eae or along the 
diagonals). You move by entering the square you're moving 
from and to in one string. For example, ““E1D2” will move 
you from the E1 square to the D2 square. The best strategy 
is to try and block future moves by your opponent while at 
the same time getting as many of your men to the opposing 


side as you can. 





@ 
@ TO 1 STEP -1 
oO 5 


180 LET B=INT (RND#3} 42 

1635 IF S#iInNT (A’5) =A AND B=3 TH 
EN GOTO 212 

196 IF ATA) =C AND ATA+B (B83) =86 T 
HEN GOTO 2764 

20Q@ NEXT J 

21@ NEXT A 

330 FOR Bsa TO 6. 

= wee 

235 IF SHtINT (A/S)) =A AND B=4 


TO 25e 

O40 Seta) =C AND A (AB IB) =e T 
HEN GOTO 279 

oO NEXT A 

>6S PRINT “I CONCEDE*;U 

370 LET ACA+B(B)) =C 

230 LET ACA) =8 

299 GOSUB 1990 





18 INPUT AS 
3 LET O=S#(CQDE AG-35) +CQDE A 


§ =. ~23 

33 LET E=Sx (CODE AFG(S}) -36B} +Ccap 
all AS(a) -a@6 

3490 LET ATE) =H 

~o@ LET ACD) =6 

360 GOTO iss 

1900 LET X=6 


1@1@ LET Y=e 
1912 PRINT AT 20,0; "Si 


LET Z=RND##RND 
1015 PRINT AT 20.0; “----------- “e 


wr es ae ee ee oe ee 


1428 BO aNe AT 5.@:°2 23 4 5" 


1625 PRI 
1930 FOR A=1 TO 25 






40408 PRINT CHRE (ATA: CE": 

1@S0@ IF Ss#iInNT tA/353 =A SHEN’ PRINT 
" “SCHRE (A«StS?} wa. 

mes a ACAI} =C AND >be THEN LET 
1@70 IF ATA} =H AND A<6 THEN LET 

YY +1 

198@ NEXT A 

1@9@ PRINT “ZZ 23 4 5” 

41095 PRINT 

114@ Pe eat “HUMAN “YY,” CANPUT 

ER ; 

1101. TF Y>X THEN PRINT “YOU ARE 


I 
2102 IF X>Y. THEN PRINT “—----I AM 
2.3.03 IF X=#=4 OR Y=4 THEN GOTO 1212 


L118 RETURN 
1126 IF X>Y THEN PRINT “COMPUTER 


£130 IF Y>xX THEN PRINT "HUMAN"; 
114@ PRINT “WINS BY "JABS (X-¥); 


wea 
~ Sh 


tw 
Oo 
(fi 


10 
A] 
m1 
=| 
CDIOMOGAGODDY, DUMDIO 
ROMP OMeMWee BOAR 
Sent Saat Nant Sond Sent Yet tts TY hale 
ti Sno? Sue “ef 
Chit it tt 


180 LET B=INT (RND#3) 41 
285 IF SINT (A’‘S) =A AND B=3 TH 


210 NEXT 


27 





220 FOR A=7 TO 28 

230 FOR 6=4 TO 6 

232 IF (A=6 OR A=11 OR A=16) AN 
O B=4 THEN GOTO 258 

235 IF S#tctiInT (AsS}) =A AND B=4 


24@ IF AA) =C AND A(A+B(B))=0 T 
HEN GOTG 270 

2S@ NEXT B 

2508 NEXT A 

265 PRINT “I CONCEDE"’;U 

27@ LET A(A+B(B)}=C 

28@ LET ACA) =8 

299 GOSUE 108 

REM E 


318 INPUT as 
Prt = D=5# (CODE AK-38)} 4CODE 

330 LET E=Se# (CODE ASS) —-S3a) +COD 
ad os (4) -26 

3406 LET ACE) =H 

~S@ LET ATD) =8 

3606 GOTO 165 
i@9@ LET x= 
1910 LET Y= 


@ 
PRINT AT 20.0) "EP 


LET Z=RNDssRND_ 
1015 PRINT AT 20,0; “------------ 


a i i i i a Th 









Ta 2s 
1049 TIF ACA} =@ THEN PRINT "BB 
ree See <> THEN PRINT PHS 
1850 TF S<INntT (A’‘53 =A THEN PRINT 
“ “I CHORE (ALS+37) . 
spate IF ACH) =<C AND A>2e THEN LET 
1879 <F ACTA) =H AND SINT (A/S) =A 

HEN LET Y=Y+4+i1 


: A 
1096 eee "Zt 23 4 5" 


ER; — INT “HUMAN “Y; ” COMPUT 

1101 IF Y>x THEN PRINT “YOU ARE 

WINNING” 

211@2 IF oY THEN PRINT “----I AM 
WINNING” 

ae IF X=S3 OR Y=3 THEN GOTO 332 


11123 RETURN 
L1iz@ IF X>¥ THEN PRINT “COMPUTER 


213@ IF Y:>xX THEN PRINT "HUMAN"; 
1140 PRINT "WINS BY "S ABS (X-¥3; 
* POINTS" 


4, 


NY % 
Marc 


tf 4 \\ 
a j a. Aa 
i / {<= "i os 
cr SRT: =f ee & 
a. nrarentft 
| ies eee: mae, aN “ie Naeem os 
E Fr ; H -_* 7 Ae * te 
2 3 “he a a 


PRIMER AK 
rt, ~~ ee 
i y Pe, : . ee Al — RS 
F ‘ * ; f yee ~ ‘ 
Ah Wa 
: woe 7 r t o a aa 
7 ow roy “x 2 , <a A a on 
: ity J " EE AAR TR PER ROTEL \ 
i j* 7 
yf \ 





HAPPY CHAPPY 


HAPPY CHAPPY is a large face which bounces across the 
screen, an idiotic smile on his face. Hit any key as he passes 
over the marker in the middle of the screen, and the HAPPY 
CHAPPY stops, his smile changed to ascowl. You get to take 
10 pot shots at 10 HAPPY CHAPPIES. This 1K game fits new 
ROM ZX80's and ZX81’s. Run it in FAST. 


OIM A 
L. 


Hund 
# » » 
#7 » 





18@ IF INKEY$<>"" AND N=11 THEN 
GOTO 586 
19@ NEXT N 

cS 


NEXT F 
CLs 
erao. “YOU GOT ";5 
PRINT AT 2,N;A& (5S) 
LET S=<S¢41 

PAUSE 6@ 

CLs 

LET N=-=22 

NEXT WN 

GOTO 2189 


This game, based on one which was featured in the film 
“Last Year at Marienbad”’ fits a 1K machine. There are 
between 15 and 23 objects on the screen at the start of the 
game, and you and the computer take It in turns to take one, 





two or three of these away. The player who removes the last 
one loses. 


3@ LET M=e 

2@ LET E=0 

SOQ LET Z=1S+INT (RND#iI 

40 IF @*INT (2/28) <2 TFHEN GOTD 


S@ LET H=3 
6@ IF E>@ THEN PRINT AT 7.0, "Y 


Ou TOOK "3 CHRS (6£4156),"I TOOK " 
SCHR (@4+156) 
65S PRINT 


NT K; : 
90 IF RND>.6 THEN PRINT 
190 NEXT K 
119 INPUT E 

12@ LET Z=Z-E 

13@ IF 2Z=@ THEN PRINT ,"I WIN"; 


450 LET @=Z-1-INT € (2-1)  (H4+1)2 
*(H+1L)} ¢INT CRND 42 
San O>Z OR A<c1 OR O23 THEN & 


OTO 

170 LET z=z2-0 

18@ IF 2Z=@ THEN PRINT ,""YOL MOK 
2OB@ CLS 

21@ GOTO 60 


BUGBITE 


You and the ZX81/new ROM ZX80, take it in turns to roll a 
four-sided die to build up a picture of a BUGBITE. The 1K 
computer does all the work (and often wins). The ZX81's 
BUGBITEis on the right, yoursis on the left. Aone gets youa 
head, two and three get you legs, and four gets you the body. 
You need to roll the numbers in the right order (i.e. one first, 
then two and so on) to complete your BUGBITE. 


2@ LET AS=" 332" 


ea 


» 
« 


2 
= 
s 
* 


# 


us 


uP me nt 


. YOU R ie 
re 2 
NT TRND #4) 47 


a 
& 
0 
4 
4 
OS TIMVOD 
Te Sat ach ah dead 


be bs 


31 


32 


oue A i TO N#3+ 


AVE 
FPRUSE 198 
DO-PISCRPIaM(N) THEN LET MC 


IF MON) <PI THEN GOTO 1i5¢e 
PRINT AT 3,.N22PI: Bs 
PRINT TAB NesePI;cs 

IF M(N} 23 THEN GOTO 17@ 
PRINT AT 2,N22PI; As 

IF M(N) <2 THEN GOTO 19@ 
PRINT AT S.Ns#PL:i As 

IF 4(N) =PI-PI THEN GOTO 22e 
PRINT AT PI.N#ePl+4;D$ 
PRINT TAR NeePI+4:;F% 

IF M(N)>PI THEN PRINT FIN 
Na3B92)5" WON. "52 

NEXT WN 

Gora 7@ 


MOON BASE 


In this lunar lander game (which needs more than 1K), you 
have to try and land your little craft on the base at the end of 
the line of upright posts on the moon's surface. You have 


a let A Alda it meal 


FUEL: G12 
HEIGHT: 1074 


TIME: 
DRIFT? -6 


£5 
THRUST? ie 





two inputs: THRUST which controls your descent; and 
DRIFT which controls your lateral movement. The game 
ends if (a) you crash land; you'll be awarded a rating). The 
printout shows a sample game in action. 


GOTO 42 
IF H<S@ AND U<2@ AND VU>-415 

AND ABS (Z2-M1 «<S THEN GaTo 37 

3 IF H>175@0@ THEN GOTO 490 
4&@ RETURN 
§S§ LET A=Av? 
: LET T=T+44+iNTYT (RND#241213 
a 


TD hs 


LEY U=s-U4AR443-22-35RND 
LET H=H+zU-2604102RND 
LET F=F- (ABS (AI +ABS (8.5) * 


) 

GOSUB 2 

12 IF H<20@ OR FCS THEN GOTO Ss 
42 LET U=s=H’ i068 

13 LET 2=2+8/2+2-RND#S 

16 PRINT AT WAX 

147 PRINT AT 16-U.Z7+4: °° J” 

cc LET W=16-t! 


LET X=Z+3 
nf : ra or ri “SUSEERERRREZ 
ih [Re AT 17,0; “VEL: “; INT V 
«7 SRUEL "SINT Fi" o", “TIME: 
— :INT To" "HEIGHT: “; INT He” 


29 PRINT “THRUST? “| 
SOQ INPUT A 


$1 PRINT @;" ". "DRIFT? “; 
32 INPUT 8B 

33 PRINT 

34 GOTO 5 

35 PRINT “ZS ABS U 





? 

36 GOTO 35 

38 PRINT “SUCCESSFUL LANDINGRR 
A ">. 40@%(3@-INT ABS VIEINT VU 
a + 

39 GQTQ 28 

4@ PRINT “you HAVE REACHED ESC 
RPE VELOCITY” 


41 GOTO 48 
az LET H=145@ 
43 LET F=827450xRND 
44 LET T=8 
45 LET 2Z=152RND 
46 LET A=1 
47 LET B=-@8 
48 LET M=1924RND 
49 LET VU=@ 
5@ LET Wu=-8 
52 & xXx=8 
7@ GOTO & 


33 





SHOWOFF 


Run this great little program the first time you want to 
impress your friends with your new ROM ZX80 or ZX81. 
Delete the PAUSE lines, except for 180, if running it in 
SLOW. This needs 1K. 


4@ LET AS="“HELLO I AM A COMPUT 


2@ GOSUB See 
30 LET AS="YOU CAN CALL ME ZED 


4% GOSUB 50@ 
S@ LET Ags="I CAN PO SUNS...." 


©@ GOSUB SOS 
7@ LET AS="TYPE IN 1 AND I WIL 


ipo rT 

6@ GOSUB 596o 

90 INPUT AS 

190 LET AG="THE ANSWER IS "+45TR 
VAL AS 

11@ GOSuUsa See 

aoe LET AS=" ILL HAVE TQ GQ NOW. 


13@ GOSUB 5ee 
14@ CLS 
150 PRINT AT 9.13; cid ie 


5190 FOR N=1 TO LEN AS 
S2@ PRINT ane 1G.Ni, ASIN) . Us 


MUSIC 


The music produced by this routine is pretty horrible but 
gives you an outline to follow. The original idea came from 
L. D. Tanner of Waddon, Croydon, a member of the 
National ZX80 and ZX81 Users’ Club. Put a transistor radio 
near your computer to hear the ‘‘music’’. You may be able 





to hear it through your TV if you turn the sound up, but you 
may have to tune it slightly away from the ‘‘best picture”’ 
position to hear the music clearly. 


1 LET K = 100 

2 FOR G = 170 2 
3 FOR A = 170 K 
4 GOSUB 30 

bs) NEXT A 

6 FOR A = 1 TO K 
7 GOSUB 30 

8 NEXT A 

9 FOR A = 1 TO K 


10 LET J=gJ+ f 
11 GOSUB 30 

12 NEAT A 

13 PAUSE 5 

14 FOR 5 = 1 TO 3 
15 FOR A = 1 T0 17 
16 GOSUB 30 


17 NEXT A 
18 NEXT 5 
19 NEXT G 


20 PAUSE 5 

21 FOR A = 1 T0 SO 
a2 GOSUB 30 

23 NEXT A 

24 FOR A = 1 TO K 
29 GOSUB 30 

26 LET J=9+ 1 





27 NEXT A 
28 PAUSE 10 
29 RUN 

30 SLOW 

31 FAST 

32 LET Je 
33 RETURN 


MENACE 


Menacing aliens chug-a-lug up the screen towards you (an 
inverse V). You move right and left with the ‘5’ and ‘’8”’ 
keys, and the game continues until an alien hits you. This 
must be run in FAST. It takes just 1K. 


LET 3=8 
PRINT AT @.P; "i" 
PAUSE 13. 


PCa ND p> 


30 


5 SCROLL 
a 2,P RINT AT 16,RND £29; “SE 5 AT 
ro tant PEEK (F416745)}>@ THEN GO 
er nail P=P+ (INKEY $="8") - CINKEY 
~ § LET S=S41 
19 GOTO 
11 SCROLL 


12 PRINT 3S 


MAGIC SQUARE 


The computer (a ZX81 or new ROM ZX80 with more than 
1K) generates a magic square, in which the numbers 
horizontally, diagonally and vertically add up to the same 
total. A zero will be printed in three of the squares, and you 
have to work out which numbers should take their places. 
Enter any guess, and the computer will check each of the 
zero places to see if this number should take its place. The 
computer automatically knows when you have completed 
the magic square, and terminates the game. 
S CIM ACS) 

1@ DIM 69) 

15 LET WU=-99 

22 LET A=INT (RNO«*9) 41 

25 LET Jn@ 

3@ LET B=INT (RND £93 +1 

48 LET C=INY (RND#9)41 

S@ IF A=B GR A=B OR A=C OR B=C 
THEN GOTO 3 
6@ LET : 


AiL? =~RA+6 
7O LET R22 =A- (B+C} 
8@ LET ACB) =A+C 
98 LET A(4)} =A-B2AC 
1@@8@ LET ATS} =A 
Ai1@ LET ATS) =A+6-C 
128 LET ACF} =A-2£ 
238 LET AS) =A+6+4+C 
248 LET ACS) =AR-B 
18@ FOR Z=1 TQ @Q 
160 LET 8 t2} =A tz} 
17Q@ NEXT Zz 
138 LET K=RBS A 
19@ LET &6(K} =@ 
2E@e LET K=ABS 5B 
2iaQ@ LET BtK) =@ 





220 LET K =ABS C 
230 LET B(K)= @ 
23S LET Jats 


240 PRINT AT @,.06. “GUESS NO. “fui 
245 PRINT 


C2)... peer 
27@ IF 2=3 OR 2=6 THEN PRINT 
275 IF Z=3 GR Z2=6 THEN PRINT 
2eae NEXT = 
282 PRINT 
285 IF M=92 THEN PRINT "“YQU HAVE 
SOLVED IFT" 
287 IF set THEN PRINT “ 


286 PRINT 
289 PRINT “YOU HAVE "7M, RIGHT 


#29O@Q INPUT U 

2935 LET M=@ 

30Q0 FOR “24-1 TO 9 
O29 THEN GOTO 32@ 
2, =U THEN LET Bitz)? =v 
}¥>208 THEN LET M=NMN+121 


ay 





TWENTY-ONE 


You and the 1K ZX81 take it in turns to roll a die, trying to get 
a total as close as possible to, but not exceeding, 21. If you 
have more memory, add a facility for multiple games, with 
an accumulating score. 


1Q@ LET H=6 
2Q@ LET C=@ 
3@ PRINT “1 FO ROLL. 2 TO STAN 


35 INPUT A 

4@ IF A=2 THEN GOTO 93a 

5Q@ LET H=H+INT (RRND +6) 42 

6&8 GOSUB 25a 

7@ PRINT AT 4,7; "SRB °:H 

Ba GoTaQ 35 

9@ IF CoH AND C<22 OR C>21 aR 
H>21 GR H=21 AND C=21 THEN GOTO 


10@ LET C=C¢+INT (RND#6) +1 
110 GOSUB 268 
L120 pata Ge &.8.; “BRB “ic 


140 PRINT AT 11.8; 

i5@ GOQOSUB 266 

16@ GOSUB 262 

ra aa OR Ho2@1 AND Co21 THE 
168@ IF po fg.S OR Heal) AND Ci2e T 


IN 
wie SER C>21) AND H:aa T+ 





P 
262 FOR E=1 TO 68 
27OQ NEXT E 
260 RETURN 


TOWER 


Pick yourself a tower, 1, 2 or 3, then stand back and let the 
ZX81 build them for you, and see if yours is finished first. 


38 


The routine in lines 120/130 seeks to increase the 
randomness of the random number generator. 


10 LET DB = 30 
20 LET A = 5 
39 LET BFA 


40 LET CHA 

50 PLOT 10,A 

60 PLOT 30,8 

70 =PLOT 50,C 

80 LET A = A + RND 

90 LET B = B + RND 

100 LET © = C + RND 

110 IF(A>0O OR BY VD OR CV) THEN GOTO 140 

120 LET X = INT(RND*6) +1 

130 GOTO SO*(X <4) + 60*(X> 3 AND A<6) + 
70*(X = 6) 

140 PRINT (A>8 AND A >C) + 24(B> A + Od FL) 
+ 3*(C>A AND C>Y8B)3" WINS" 


HANGPERSON 


This is HANGMAN in reverse. You think of a word, and the 
computer tries to guess it. When you RUN this program, 
the computer will first ask you how many letters there are in 
the word. 


The ZX81 will then think of a letter. If this letter is in your 
word, type the numberof the letter in the word. That is, if 
your word is APPLE and the computer guesses E, respond 
by typing 5. If the letter is wrong, input @. After a correct 
letter, the computer will leave it there until you typeQ, to 
allow for double letters. So, if it thought of P, you’d respond 
with 2, then NEWLINE, then 3, then NEWLINE, then 9. This 
game is great fun to play, and you'll find the long-suffering 
ZX81 has a much better chance of guessing your word 
within its 10 goes if you think of a long word. 


4@ REM ETARONRISHOLFCMUGYPUB.LIKD 
2@ LET L=19@ 


@ PRINT “LENGTH OF WORD?" 
40 INPUT N 


39 


= CLS 
68 DIM fiass 
99 DTM Gin 
48 OFM GIN. 
410 FOR 2=1 TO 26 
124 LET AZ} =PEEK (1651342) 
130 Tf Z2étNt+1i THEN CET GtZ) =4 
140 NEXT Zz 
15@ LET 2=INT tRND#3) 41 
160 LET AG=CHRS ATZ) 
278 FOR J=Z TQ 25 
160 LET Att} =A CU+D) 
Lg@ NEXT J 
2#@Q LET H=6 
218 PRINT AT 3.4. 
239 FOR Z=1 TO WN 
2#224@ PRINT CHRG® Gites; 
250 NEXT 2 
260 PRINT 
270 PRINT 
2O8 PRINT TRE SB; "LIVES: “sis 
TAB 10,."I GUESS “j; AS 
3@Q@ INPUT & 
310 IF 6=0@ THEN GOTO 35@ 
3aeag LET A=1 
339 LET G(6)} =CODE As 
348 GOTO 21 
350 CET F=Hod 
368 FOR 2-23 TO 
S708 IF GtZ} =4 THEN LET F=1 
2360 NEXT 2 
nears Ari F=8 THEN PRINT TAB G6, "TI 
410 IF A=0 THEN LET L=L-1 
420 IF L>9 THEN GOTO 150 
438 FRINT TAB 8; 


“WOU WIN" 


AVOID 


In this 1K ZX81 game, a grey blob moves back and forth 
under your control. The key marked ‘1’ moves you left, 
and “0” moves you right. The aim is to avoid the moving 
black squares. If you hit one, the black square turns into 
your score. Any score over 95 is good. 


5 LET K =@ 


10 


POKE 16418,8 


(this line changes the lina 
from which SCROLL operates) 


20 


5 


LET A = 
LET 8 = 
SCROLL 
PRINT AT A,B;"graphic H" 
L1£7 C = A 


30 A 
40 
50 


60 





70 LET 0 = B 

75 IF INKEYS = "" THEN GOTO 90 

60 LET B =8B - oo AND INKEYS = "4") + 

B<19 AND INKEYS = "g") 

90 PRINT AT C,U;"single space" 

100 PRINT AT 8, INT(RND*20) ;"inverse space" 

110 tet K = K + 1 

120 PRINT AT 6,03 

130) «€6O«IF PEEK( PEEK 16398 + 256*PEEK 16399)<? 128 
THEN GOTO 40 

140 PRINT K 





BOMBER 


A tiny plane flies overhead. You press any key to fire at the 
target (a graphic H). The line across the top of the screen 
gets shorter and shorter, and you can keep playing until the 
line vanishes. You get a satisfying BOOM if you hit the 
target. This game is 1K for 2X81. 


10 LET T=16 


15 LET &=8 
46 LET D=2 

@ RI, TS 
3@ LET F 


Se 

3 wN-45" “AT aT 
“8 “AT O.N: “4%” : 
6@ PAUSE is 
39@ LET B=B OR INKEY$<«>"" 


AT 


42 


8@ IF 8 THEN GOTQ 260 
9@ LET TeT?tINF (RND€3) -21 
19@ LET F=eF-1 
11@ UNPLOT F,43 
12@ IF NOT F THEN STOP 
136 NEXT N 
146 PRINT ATF 2,3@;" 
158 GoTe 48 
200 PRINT AT DLN” “ 
2138 LEF D=fP+1 
226 IF O=3 AND N=T THEN PRINT T 
RGB NN. “BOOM 
23@ IF 0<8& THEN GOTO 38 
240 LET B=0 
250 LET D=1 
2698 GOTO 32 


RALLY 


In this 1K ZX81 game, you are an inverse V, trying to 
negotiate a very difficult track, strewn with obstacles. The 
score clocks up beside the track throughout the game. The 
higher this score becomes, the better. 


Anything over 183 is a great score. Run it in FAST ona 
2X81, and use the ‘’5”’ and ‘’8” to control your car. 





LET B 
£0 LET BS (RND#7 +2 
SS LET BS(RNO is 


+2 
118) LET P =o. CINKEY @="8") —- CINKEY 
120 GOTO 3a 


LIFE 


The game simulates the birth, growth and death of a cell 
colony, producing fascinating effects as it does so. The 
cells live on a grid (in these versions it is a 10 x 10 grid) and 
are born, live or die according to Conways rules: 


.Each cell on the grid has eight neighbours 


.Every cell with two or three neighbours survives to 
the next generation 


.If there are three, and only three, neighbouring 
cells, a new cell is born 


.Any cell with four or more neighbours dies from 
overpopulation 


S céT Ged 

7 RAND 

@ OIM AC1@.1@3 

@ DIM B68(10,16) 

33 FOR X=2 TO @ 

40 FOR Y=z=2 TO 9 

S@ IF RNE>.35 THEN LET ACX,Wi = 


6@ LET fx, YI =ACX,. 3 
7@ NEXT Y¥ 


NEXT x 

$@ GOSUB i19@@ 

95 LET G=Gei 

100 FOR xX=2 TO 9 

118 FOR Y=2 TO 9 

128 LET C=@ 

23@ IF AtIK-1,Y¥Y¥-1)=1 THEN LET C2 
Ae IF ACX-1,Y)I=1 THEN LET C=C+ 
15@ IF AC(X-1,Y+1) =1 THEN LET C= 
160 IF A(X,Y¥-1) =1 THEN LET C=€+ 


1 
17@ IF ACX,Y44) 214 THEN LET C=C+ 


43 


180 IF ACX41,Y-1) =1 THEN LET C2 
tates IF ACK41,Y¥)=1 THEN LET C=C+# 
200 IF ACK421,.Y+1}=1 THEN LET C= 


C+i 
21@ IF A(X,Y)I=1 AND C<co3 AND C¢ 
>2 THEN LET 8 t(xX,V? =@6 
220 IF A(X,W)=@ AND C=3 THEN LE 
T B(X,.W} =1 
G NEXT Y 


256 GOTO 38 
10908 PRINT AT 3,9: “SGENERAT IONE" 


G 

e 

196061 FOR X=1 TO 10 

10410 FOR Y=1 TO 10 

10615 LET ACX,Y) =Bix.¥) 

19260 IF AIX, Y}a4 THEN PRINT AT X 
+4,VW+10; ° 

183@ IF A(X, VI 2=@ THEN PRINT AT &X 
4#4,Y410;," “ 

104@ NEXT Y 

1@S5@ NEXT xX 

1@60 RETURN 


BIGENERAT IONRO 


Oo 000 
0000 000 


BGENERAT ION 





BMSENERAT IONS 


O 


Co oO OO 
OOD 


oO 
QO 
oOoco0o6 


BGENERAT IONE 


O000 
0 
GB 
a 
Oo Ooo 
DQ 
OO00 


BIGENERAT IONS 


a 
Oo OO 
Oo OO OO 
00 OO 
oo 860 a 


00 a 
D0 





BGENERAT IONH13 


OQ 
000 
ea 


BNGENERAT IONBi4 


000 
0 O 
O GO 


00 
oO 
o . 


debi hel LIFE 


16 DIM RAt10.16) 
Z@ DIM Bt1@,16) 
‘38 FOR X=2 TO 9 
4@ FOR Yre TO & 
S@ IF RND>.45 THEN LET A(CX,Y) = 


G6@ LET Bik. ¥)} =AixX.Y) 


88 NEXT xX 

9@ GOSUB 1608 

92 FAST 

$5 LET G=G+i1 

1@Q@ FOR xX=2e TO 3 

1128 FOR Yee FO 9 

120@ LET C=8 

138 IF Atxk-1,Y-1) =1 THEN LET C= 


Pia IF AC(X-21,Y) =1 THEN LET C=C+ 
$50 IF ACX-1,Y+1) =1 THEN LET C= 
160 IF At(X,Y-1) =1 THEN LET C=C+ 

"170 TF ACX,Y41) =1 THEN LET C=C 


18@ IF ACX41,Y¥-1) =1 THEN LET = 
1980 IF ACK41,Y) =1 THEN LET C=C 


L 
2860 IF AtCKX+#1, VYti} =1 
1Q@ IF AC(X,Y) =1 AND 


>2 THEN LET 6B UxX.Y) =6 
228 IF AtX,Y} =@ AND 


THEN LEFT (= 


CoS AND Cr 
C=3 THEN L&E 


S 
one PRINT AT 3.4; “GENERATION “>; 


1981 FOR X=1 
19@2 FOR Y=1 
1@@3 SLOW 


TQ 18 
TQ 16 


1015 LET ee a eG 


ws 
8 
~ 10 
8 
a 
La 
D 
x 
< 
ti 


HEN 


12s IF eee ~VI=1 THEN 


4.- i2-Y; 
1936 
+4,Y+ “ 


Tr aOGY) 


@ THEN 


1835 IF’ ACxX,Y) =@ THEN 


4-xX,12-Y,; 
1@4@ NEXT Y 
1Q@50 NEXT xX 
1@S535 COPY 
1960 RETURN 


GENERATION © 


000 0 
QO 
oO 
00 
000 OO 
oo 
ooo 


000 
GO 
qgQ oa0 
oO. 8060 
00 
oO 
O 
Oo ooo 


’ PRINT AT xX 
PRINT AT 23 
PRINT AT X 
PRINT AT 2 


4] 


GENERATION 2 


00 
oO 0 O 
on Q 000 0 
O0 0 O 
000 0 a2 0 0 000 
Oo 860 00 
oO 000 0 O00 
O Qa 0 
OO 


GENERATION 13 


Oo 
oO 000000 
000 oO o0000 
00 OG 
00 00 
00 00 


o0000 O 000 
ooo0000 Oe 


4-IN-A-ROW 


As you can see from the screen printout, this game is played 
ona 10x 10 board. You and another human take it in turns 
to indicate which row (A to J) you want to use. A piece 
appears, an X or an O, at the lowest vacant slot in that row. 
The aim is to get four in a row, in any direction. In the 
sample game, X has just won, with a diagonal row starting 
— C and going up to F. This program needs more than 





PLAYER 121 
BCDEFGHIG 


x 
xO 
HOKKKO 
OADDVOAKXOR 
BCDEFGHIS 


109 DIM AT1E0) 
#0 Has J=2i TO 2 


9@ PRINT CHRS AC 
10@ IF 1a INT cB 





6 THEN PRI 


xT 
132@ PRINT AT 16.8: "ABCOEFGHIuU" 
139 PRINT AT .35.6; "PLAYER “:J 


2% 
145 IF 2Z§=°"S" GEE i STOP 
15@ LET M=COOE 3 

16@ FOR &BS=M TO M+90 STEF* 18 
178 IF RIB) =@ THEN NEXT 6B 
18@ LET A(B-16) =C 

190 NEXT J 

#88 GOTO 298 


SANDOWN 


This is a race between three numbers, 1, 2, and 3. Line 130is 
based on the fact that the ZX81 evaluates TRUE as 1 and 
FALSE as @. 


5 LET DO 30 


10 LET A= @ 
20 LET B=AA 
30 LET CsA 
40 LET K = 150 


50 PRINT AT 2,A;"41" 
60 PRINT AT 4,8; "2" 
70 PRINT AT 6,C;"3" 
74 GOSUB K 








78 PRINT AT 2,A3;"space" 

80 LET A = A + RNOD 

82 GOSUB K 

a5 PRINT AT 4,83;"space" 

90 LET 8 = B + RND 

100 PRINT AT 6,C;3"space" 

105 LETC = C + RND 

110 GOSUB K 

120 GOTO 50 

130 PRINT (A> C AND A>~®) a 2*(8 YA AND B) C) 
+ 3*(C 2A AND C > @A)3" WINS 

140 sToP 


150 IF (A> OD OR BYD OR CD BO) THEN GOTO 130 
160 RETURN 


DEMON 


This program, which needs a ZX81 with at least 4K, is based 
partly on pawn moves in chess, and partly on draughts. 


DEMON is played on a six by six grid of dots. You have six 
men each at the start of the game. You are the X’s and the 
ZX81 is the 0's. 


You move in a diagonal direction only (as in draughts), but 
you can move forwards or backwards. You capture an 


£xXS1l @ HUMAN @& 
XM « XM .« XR 

KX « KX « KX . GB 

e ° a a s ® C 

* a 2 * ) a mS 

e © i oO & 2 E 

C} * G 2 G * 

12345 6 

YOUR MOVE‘? 


opponent's piece by landing on top of it. The first player to 
capture four of the opponent's pieces wins. 


The ZX81 always has first move. You move by entering the 
square LETTER and NUMBER of the piece you want to 


move, then the letter and number of the square you're 
moving to, and THEN press NEWLINE. That is, you enter 
the ‘square from” and the ‘‘square to’’ before you press 
NEWLINE. 


You'll see that the board is stored in the first REM 
statement, and the computer makes decisions by PEEKing 
into this REM statement. Lines 21 to 23 rePOKE the board 
into the first REM statement at the start of each new game. 
This game can be adapted fairly easily for the ZX80, but 
you'll have to add a few INPUT AS$s and CLS to control the 


display. 


--0.0.00.0.0. 
2@ REM Be ds a 
»-0.0.00.0.041234565 oe eae 
21 FOR K=165562 TO 158598 
22 POKE (K-48) ,PEEK K 
23 NEXT K 
24 LET N=9 
25 LET 7=16513 
26 LET 5=@ 
27 DIM B(4) 
28 LET BCl)= 
29 LET B(2)= 
39 LET B(3)=-5 
32 LET B(d4) =-7 


33 LET K= 
38 GOsus 68 

37 FAST 

48 GOTO 339 

6&5 PRINT AT 5.@; °2X82 “: N, “HUM 


AN "3S 
69 PRINT 
7@ FOR C=1 TO 36 . 
71 PRINT CHRS$ PEEK (Z+C); 
ga TR ee CINT (C70) =6 THEN PRI 


NT Eee (C6437) 
7S WN Cc 


xT 

77 PRINT "12 2 3 4 5 6” 
78 FOR H=1 TO 3e 
SQ NEXT H 
90 RETURN 
12@ GOSUB 66 

SLOU 
13@ PRINT “YOUR MOVE’*’" 


a1 


02 


132 INPUT AS 

136 LET D=6fCODE Afi) -3BI +COp 
= (AG C2) ) -~-26 

440 LET E=6#2#TCODE AS CS) ~-38) +COD 
E (AS (4) ) ~-28 

195@ IF PEEK (O42) =S2 THEN LeT & 


155 POKE (D+2) ,27 
160 POKE (CE+Z)} .61 
17@ GOSUB 6S 

FAST 


160 IF S=4 THEN GOTO 410 

1906 LET K=8 

250 FOR F=1 TO 36 

260 FOR M=2 TO 4 

270 IF PEEK (F423 =S2 AND PEEM § 
F+Z¢+¢60M)) =61 THEN LET N=N+# 

275 IF PEEK (F+2)=S2 AND PEER f 
F+2+6B1°M}} =612 THEN GOTO 428 

290 NEXT M 

3Q@@ NEXT F 

33@ LET M=1 

340 LET F=INT (RND*#36) +1 


S43 PRINT AT @.@:;K 
3S@ IF PEEK (F+Z)}<>S2 THEN GoTo 


3S2 IF Se e@ AND M<3 THEN LET 
S55 IF tF=6 OR F=18 OR F=SQ@i AN 


D (M=1 OR M=4)} THEN GOTO 372 


360 IF PEEK (F4+Z4+B(M)3-=27 AND P 
= (F+Ze+2e4B (M2 96261 THEN GOTD ¢ 


370 LET M=M+1 

S75 IF M<S THEN GaOTQ O55 
400 IF K<1@8 THEN GOTO 338 
4102 Sra “YOLE WIN" 


46@ POKE (F+7) 

465 POKE (F+24+6(M)).52 
470 GOTO i12e 

S@@ PRINT “I WIN" 


TEAOPERATIVES & GENERAL LABOURERS 
ASSOCIATION 
Md Reystrad Protcoine Unione 7 General Labourers, 
ALL GENERAL & DOCK LABOURERS JOIN GONE 
and ‘raided the Rigids of Manhood na 


“pect MARS. 
CON TRIBUTIOWS 2° WEEKLY . ENTRANCE f2E I s. 
Nn Phe ce tet LL 


DEMONSTRATIONS AND 
SUBROUTINES 


Here are three short programs which you may like to 
incorporate into longer programs you write. 


TRIANGLES 


You enter any number from 2 to 15 and the clever 1K ZX81 
draws a triangle with that base number, counting the 
number of points within the triangle. 


19 PRINT “BASE OF TRIANGLE” 
26 INPUT 6 


CLs 
49 PRINT “GASE “; 6, "“TATAL * 
LEY T=9% 


6@ LET 5=9 

78 LET U=28 

6@ LET T=T+6 

90 FOR Ne=S TO Say ~2 STEP 2 


19@@ PRINT AT LN; 


146 LET S=5tl 
18@ IF 6>@ THEN pe Be 


1690 PRINT AT ©.22; 


MISSILE 


When you press ‘’Q"’, you'll see your missile fire towards the 
target. You should be able to build a good game around this 
routine. 


INT AT 9,15; ° ‘s, ': TAB 16; 
oP, Saar ‘TAB 15, ‘s 
2 IF TRKEY $2" a" THEN GOSUB 32 
4 GOTO 2 
19 FOR Ne2 TO 21 
11 PLOT 1@6+4N,N 


03 


2 PLOT SS-N.N 

13 UNPLOT 6+N.N-2 
14 UNPLOT S?-N.N-2 
16 NEXT N 

i? RETURN 


SOLID SINE 


This 1K ZX81/new ROM ZX80 program is a very effective 
demonstration of the graphics capability of your computer. 
It plots a “‘solid’’ sine wave. 


FOR X=@ TO 63 
LET Y=2@#SIN (*/324P2) 


OTO 7 
FOR N=@ TO Y STEP SGN Y 
oN+422 


~ 


NEXT X 
PRINT AT 1@,@; "------------ 


aes 
—~—e EO om A ee eee eee ee ee ee eee ee, ee Oe 


HOW LONG HAVE | GOT? 


This program asks you a number of questions, responds to 
them with wise comments, and then tells you how long you 
will live -- based on statistics. Do not take the results too 
seriously. The words in inverse graphics are: 


OI OTH ins 
Z 


180 MALE FEMALE 

220 ONE 

320 MARRIED 

590 DRINKING 

640 DO YOU SMOKE (Y OR N)? 
680 10-20CIGARETTES-A 
690 20-30CIGARETTES - B 
700 MORE THAN 30 A DAY -C 
710 APIPE OR CIGAR - D 

800 ILL 








1@ LET Nes. i 
2Q®@ LET Ng=" “ 

3@ RAND 

4@ PRINT " LETS HAVE A LOOK 


eo PRINT TAB (63; “LIFE ENPELTA 


T 
90 PRINT “FIRST. WHAT IS YouUR 
490 INPUT TS 


sae PRINT “OK, “;TS;"“, WHAT YER 


15@ PRINT “WERE YOU BORN? (GIVE 
ANSWER IN THE FORM ~-196 


168 INPUT RA 

17@ GOSUB 28060 

1860 PRINT “ARE YOu 
(2) 7" 

i9 NPUT 6&6 

2600 GOSUSB 29300 

210 PRINT “WHICH AGE GROUP ARE 


7222 PRINT TAB (6): “INPUT 
230 PRINT " S TO 25 - A",’26 TA 


OR 









-~ £— 
— FU Pa TO 75 — ce "OUER “eS =~ 


2490 INPUT ASE 

250 GOSUB 2000 

260 PRINT “DIDsHAS YOUR FATHER 
LIVE (D) PAST 7@ (Y OR NO" 
27@ INPUT B# 





28OQ@ GOSUB 2668 

2990 PRINT “DID/HAS YOUR MOTHER 
LIVE (DB) PAST 786 (Y OR NJ)” 
3060 INPUT 


330 


340 
35@ 


INPUT 
GOSUB 
PRINT 


L IVE? ue p te 


"360 
378 


INPUT 
GOSUB 


360 PRINT 
R POOR FOR 
OR N) 7?" 


S2 
MOUNT 
ag INT TAB 


SEG PRINT TRE 


INPUT FS$ 
IF CODE 


GOSUB 
PRINT 
Ni} “?" 

INPUT 
PRINT 
LF 


PRINT 
PRINT 
B.° 


CODE 


2aeae 
“ARE YOU BRE ty a 


G 
2Oae 
TAB (6), “WHERE Do Yot! 
A SMALL TOWN - 

A CITY - &" 


2000 

“HAVE YOU BEEN RICH © 
MOST OF YOUR LIFE [fy 
(AG) <4@E@ THEN GOATO ¢ 


2608 
“ARE YOU OVERWEIGHT (| 


GS 

(GR <>62 THEN Gorn 
TAB (12);"A LITTLE ~- 
TAB (7);"A MODERATE Sf 
(10), “QUITE A RIT 


4690 INPU ‘Be 

47@ GOSLUE Ae 

4850 PRINT EXERCISE..." 

48S PRINT wEee RSSeeeaeeene mM es 

490 PRINT 

58990 PRINT 

$1206 PRIN 

2<@G@ PRINT “HOW MUCH EXERCISE DO 
YOU GET?" 

ger PRINT TAB (8); “VERY LITTLE 
S24 PRINT TRE (3); "RA MODERATE FR 
MOUNT - B" 

S26 PRIN] TRB {8);,"R LOT - cc” 
S30 INPUT J 

5406 GOSUB 2oOae 

SS@ PRINT "ARE YOU USUALLY: - 
SS2 PRINT TRG fads’ ‘GOOD-NATURED 
RAND PLACID A* 

Dod PRINT TAB ‘€7)> “TENSE AND NE 
RYUOUS 


filiI; “IN BETWEEN 


“S70 INPUT: K&S 


S6Q@ GOSUB 20008 





585 PRINT 
@ PRINT “" 
92 PRINT " 


609 PRINT | 
aire PRINT “HOW OFTEN CO YOU BRI 


sae PRINT “ RARELY GR NEVER 
612 PRINT ° OCCASIONALLY ~ £& 
6123 PRINT “ REGULARLY (MODER 
ATELYP - Cc” 
"624. gas i REGULARLY (CHEAVI 
915. PRINT = REGULARLY (CUERY 
HEAVILY) - EF" 


620 INPUT L& 

6308 GOSUB 2000 

540 PRINT “Eee 
5@ INPUT M$ 
660 Cis 

6708 IF CODE (M$) <>62 THEN GoTo 


738 

6°53 PRINT 
676 PRINT 
677 PRINT 










3 
ae | 
DQ YoU VISIT A DEN 


75 PRINT .” LEAST THNICE A YEAP 





FS 
P60 GOSUB 2966 | 
FYB PRINT “DO YOU HAVE REGULAR 
wee CHECKUPS (Y GR 


78O INPUT OQ 
79@ GOSUB ‘20@0 
SOO PRINT "ARE YOuU-TOFTEN 


610 INPUT RR & 

S2@ LET L=dh¥e (A 4G3343 + 
G@ ANB A<1921) +59%(A>192 
931) +4+612#(A>1930 AND A<1 
AdYX+1944G AND 7(1951}) +67 = { 
C A<1961) +68 (A>1960) 





mteg 








630 IF B=2 THEN LET L=51% (L=48) 
+56 % (L=S2) -62% (L=593 467% (1 =fh33 #7 
1#(L=65) +742 (L=67) +754 (1 =68) 

S635 LET L4=1990-A 

64@ LET V=CODE (AS) -37 

850 LET LisSe¢(V=1) 454(Ve3 OR Ua 
} ey (U=4) +82 (U=5) +168 (Uf) st32F f 
Us 


660 LET L=L4+b1 
S7@ LET L=L+(CODE (B§) -62) 
S8OQ@ LET L=L+(CODE (C$) =62) 
S90 LET L=L+34(CODE f(D§l =62) 
Oe L L=L¢4+¢4e2(CODE (£43 =<58)3 -24 
(CODE (&§) =39) 
910 LET L=L-S32(CODE (F $2) =fi2. 
920 LET L=L-(CODE (H$) =383 -32f1C 
ODE (HF} =39)-S# (CODE (HE) =4B3 
3Q@ LET L=lL+Se(CODE (J$) =39) +52 
{CODE (J§) =4@) 
940 LET t=Le+S2(CODE (K§) =386) -2¥ 
{CODE (K$)} =393 
950 LET L=L¢4G3Ge#(CODE [L$ =<éWA) -K.s 
(CODE (L$) =41) -10# (CODE (L131 =<éd2) 
960 LET L=L-S2s (CODE (Ng =38) -Bs+ 
(CODE Sd are Giri (NS) =40) 
~Z*(CODE (N§)} =41) 
S IF LU<¢td THEN LET Ll=Léd 


970 IF P¢="Y°" THEN LET L=L+i1 
9S5@ IF O€="Y° THEN LET L=L +3 
9990 IF RG="Y" THEN LET L=L-1 
iV@ooe CLS 

1812 Bota To S 





“YOUR PREDICTED AGE RAR 





1680 PRINT TAB (61);T#;,;"., IS “sb 





=) 
2010 FOR Z=1 TO INT (RND#8) 
2020 PRINT 
2O30@ NEXT 2 
2040 GOSUB 36900 
20670 RETURN 
S@@QQ LET Z=INT {(RND £16) 
S965 PRINT TAB (S); 
3010 GOSUB 3@0@+20#2 
2815 RETURN 
2Q820 PRINT “I SEE" 
SG30G RETURN 


3440 PRINT “UH HUH" 

3850 RETURN 

2960 PRINT "RIGHT" 

3070 RETURN 

398Q@ PRINT "OK" 

39990 RETURN 

3160 PRINT “FINE. ";T$ 

311@ RETURN 

312@ PRINT “THANKS, “;T$;", NOK. 


313@ RETURN 
314@ PRINT “NOT TOO MANY MORE TO 


3150 RETURN 

3166 PRINT “MMM..." 

317@ RETURN 

$186 PRINT “THANK YOU, “iTS: N 


3130 RETURN 
3206 PRINT “ALL RIGHT, NOW" 
32190 RETURN: 


RUSSIAN ROULETTE 


A simple little program for a 1K ZX81/new ROM ZX80, in 
which you must pull the trigger 10 times (by pressing 
NEWLINE) to survive. 


1 LET @=10 
LET M=2 

FOR A=0/8 TO @ 

INPUT AS 

CLS 

GOSUB 150 

IF RAND <. 16 THEN GOTO 70 

S@ PRINT A, “Seas 

6@ NEXT A 

65 IF RND>=.26 THEN GUTO 9@ 

7@ PRINT AT @.@/M; “EGR _ 


SRINT AT 6,074; “BRANCERORS 


Se 79 
9@ PRINT AT @.90/M.s “YOU HES Be 


i RINT AT ©.07M: "BRE GABE SL! 
RUIVED" 

138 GOTO 38 

150 FOR T=9r0 TO O 

160 PRINT AT MN+M,03N; ‘"B",.CHRS [ 
+156) 
















09 


an re 


178 PRINT AT Mt+M,03N); “R’, 
175 NEXT T 
150 RETURN 


JUPITER LANDER 


Forget about lunar landers. This one is set above Jupiter. 
Once you've managed to land your tumbling space craft 
successfully a number of times, make things more difficult 
by reducing your starting fuel (line 330) or by changing your 
initial speed (line 349). This needs more than 1K. 


og 329 

LET =22 op #5 

PR INT AT ab 

PRINT AT ié ary ‘140. 

LET Q=M 

LET ¥Y=i6-H-1e8 

LET J=RND 

KF &<.5S THEN PRINT “ 

If J>.5 THEN PRINT “* = 
PRINT AT 27 ~O; ** all = alll 


oe oe | 
PRINT “HEIGHT FUEL SPE 
“; INT 


PRINT “ “3 INT Hit 
20.5; “THRUST?” 


20,.5;T;° - 

THEN Lér F=8 
LET S=St+iINT (8736) 415-T 
LET H=H-S 


IF #216@@ THEN GOTO 29a 

LET F=F-ABS (T/23) 

IF H>® THEN GOTO 20 

IF $)21@ THEN GOTO 276 
PRINT “SUCCESSFUL LANDING “ 

:F #23; POINTS’: 0 

“2a7e briny “CRASH LANDING, FORMI 

NG CRATER: . INT (S5S*RND#7);>" NETRE 


e202 PRINT ABS SS,“ ESCAPE VELOCTI 


“sore 3ee8 
LET H=14@@+RND£10@ 









PRINT AT 
IF F-T<1 





LET F=26@4+RND2#75 
LET S=1L@+RNDt10 
LET Y=5 

LET @=S 

RETURN 


MINIVADERS 


The minivaders march from right to left. ‘5’ and ‘’8’’ move 
your base right and left, and ‘’0”’ fires at them. This will run, 
unmodified, on a new ROM ZX80, or a 1K ZX81. 


28 LET. 
NKEY $=°S") 
1@@ 





LET S=@ 
LET P=iG 
FOR t=-32 TO 
LET ApH" 
F Jt} of 


& 


v Vv Vv VV Ww 


RS:AT 7.P37"3" 
E “tara ine : 

IF INKEY$="0" THEN GOSUB 23 
P=Po24 CINKEY $="8") -B4 tI 


ET AK=AS(A TO 31) A$ (23 


a 
Y=lL THEN GOTO i768 


PRINT AT Y,x*X,".’ 
GOTO 7@ 

IF AGIX) =" “" THEN GOTO 48 
LET ABIX) =" * 

LET S=S+ 3. 

TF RND>. 7 THEN GOTO 276 
GOTQ 42 

LEY F=1 

LET Y=6 

LET xX=P 

RETURN 

LET S=583S50 

NEXT & 





Viens! 
mon Vittel ! 
mon Sauveur!! 
que Je 
t'embrasse !! 


GRANDE SOURCE 





SMUGGLERS BOLD 


This is a rather daft ADVENTURE-type game which 
demands a 16K ZX81, or ZX80 with new ROM. You can 
replace the PAUSE lines with FOR/NEXT loops if you want 
it to run more smoothly on a ZX81. 


You are exploring a cave system in Penzance, with two 
companions of your choice, looking for treasure. An 
enormous number of obstacles stand in your way, butif you 
are brave, you will finally see the light of day. 


Because some of the inverse print statements are a little 
difficult to read, we'll print them now, before the listing: 


1100 
1160 
5232 
5542 
5560 


5567 
5580 
5604 
5607 
5620 
5790 
5792 
5806 
7000 
8240 


YOU ARE IN CAVE NUMBER 

YOUR COMBINED MAGIC POWER 
---STAND BY--- 

GHOST OF LONG JOHN SILVER 

AHA, A TREASURE MAP. . .CAN YOU, READ IT 
---WE SHALL SEE 

NO, 1T HAS FADED. . . 

GADZOOKS . . .A SAND TROLL 

IT HOLDS A GENIE 

IT HELD NOTHING BUT STALE SMOKE 
..-WILL YOU MAKE IT 

DESPAIR, JUST SAND 

AND SPIDERS 

SILVER, GOLD AND GEMS 
CONGRATULATIONS 

TIME TO PICK A PARTY TO EXPLORE THE 
CAVES WITH YOU. . . 








HAMAR lrilitgt ‘ rh i i 


MGT Poke 


will if | I 
Tysdi 


i 
His 


i 


OP ag 


ah 


re tte 


er 
= oa _ 


i 


ii if i 


yi 


REM BISNUGGLERS BOLDEB 


1 

2 

3 REM REPLACE THE PAUSE LINES 
4 REM WITH LOOPS TO RUN MORE 
: REM SMOOTHLY ON A B?xe18 


1@ RAND 
100 GOSUB 9500 
388 Ate STATE OF PARTY 


3190 IF CAVE<1 THEN LET CAVE=1 
320 IF CASH<1 THEN LET CASH=a 
330 IF 3<¢1 THEN LET S=8 
340 IF P<1 THEN LET P= 
3508 IF CAUFS9A THEN GOTTA 7aaNn 












G@ PRINT Beg erant Shee nks Peuie 
e@ «a co cast } 
1120 SH>@ THEN PRINT “YOUR 


ante” ts ARRY ING" ,"€"5 CASH" UO 
RTH. OF TREASURE 
134@ PRINT “ &:" AND "CB 


2145 PRINT TAB te) wears Orrhis You 
225@ PRINT “YOUR TOTAL STRENGTH 
1160. PRINT “YOUR COMBINED EETRIED 


VE 
319@ PRINT , “POINTS: ee 
3120 PRINT TAB (8); levee 
9130 IF Ds="5" THEn PRINT (8 
315@ PR NT.TAB (905 °R “3 CHRS ¢ 


3178 LF D§="E AEN PRINT TAB [18 


Sieg IF D$="U" THEN PRINT TAB 18 

32e@ IF DSs< re _QNO OS¢2"E" THEN 
PRINT TAB (8);° ae 

9218 PRINT TAB’ (8); * a 

3220 PRINT TAB te)? "i “j - 

3290 IF Dg$="N" THEN PRINT TAR 


354@ PRINT TAB (8): gnor 
5190 PRINT “ WHICH NSE. 
S120 INPUT 


DS 
S125 IF D&="U" THEN STOP 
S200 one QUESTIONS 


S220 GOSUSB seoe 

S221 IF D¢<3 THEN GOSUB 5513 
S225 IF D214 THEN GOSLUIB 578a 
S230 IF D222 AND D<15 THEN GOSLIB 
5480+202D 


PRINT ..,° 

5235 PAUSE 30a 
GOTO 320 

5513 PRINT “AHEAD OF you IS A CH 


Ee 
S514 GOSuB s&e@eee 
5515 PRINT “ITF CONTAINS “; O72; “ 


5516 Hr gl 8 “YOUR AVAILABLE STREWN 


TH s 
SS17 PRINT “(THE MOST YOU CAN TA 
KE IS “;INT (S/74)5°)" 

5520 PRINT “HOU MUCH WILL You TA 


K 

SS2i INPUT 

SS22 IF DD»D72 OR DD>INT (8.74) TF 
HEN GOTO S521 

S523 LET S=S-DpD 

SS2e4 LET CASH=CASH+?2.5#DP 





SS39 RETURN 

554@ PRINT "YOU ARE FACE Ta FACE 
UITH THE” 

5542 PRINT “ GHOST OF Misizkts Patwisi 


5544 PRINT "WILL HE HARM yoLc" 

S545 PAUSE 100 

SS47 GOSUB 8@eae 

6549 IF D>8 THEN PRINT “YES...HE 
STRIKES. 

S55@ IF D>8 THEN PRINT “AND ";AS 
°° FS INJURED" 

5551 IF D>8 THEN LET 5=S-2 

SS52 IF p)16 THEN LET P=P-1 

SS53 IF D<9 THEN PRINT "NO, HE H 

AS TURNED AVAY","YOU MAY PROCEED 


daca IF DB2o12 THEN LET CAVE=CAVE - 


S555 IF 0<9 THEN LEY CAVE =Car a3 
rh aa: 






5564. PAUSE 168 
SS66 IF D<21 THEN LET S=S-INT fb 


<112 THEN PRINT “RISRGSeE 


S566 IF D>10 THEN PRINT "YES £££ 

feeere AND IT TELLS". “YOU WHERE 

TO FIND £°: 104072, "WORTH OF GOLD 
DUBLOONS“ 

S569 IF 0210 THEN LET CASH=CASH+ 
10*072 

S570 IF £0>°1@ THEN LET CRVE=CAVE + 


i. 
Dove Bar 


é , eT 

ae “HAS IT SPOTTED volt? 
SS2 GOSUB Sane 

SS83 PAUSE 200 

S564 IF _ O<?7 THEN PRINT “LUCKY... 
HE HAS TURNED AWRY 

SS8S IF O>6& THEN PRINT “HORRORS, 
HE ATTACKS "“; AS 

a IF D>6 THEN LET CASH=CASH-2 
7 

S587 IF CASH>@ AND D>6 THEN PRIN 

T “STEALING £°;102D;" WORTH OF E 

MERALDS" 

S589 IF O<?7? THEN LET CAVE=CAVE +1 

S590 LET AS="BATTERED “tAS 

5595 RETURN 

S6@@ PRINT “YOU FIND A BOTTLE FA 

SHIONED OF", “CURIOUS. MISTY GLAS 

§..e-WHAT I5",° INSIDE IT?" 

S602 GOSUB Seae 


5603 PAUSE 152#D 65 









S60Q@4 IF D<¢<7 THEN PRINT “IT HOLDS 
A VHO GIVES". “you £°: 52D; 

oe CREASES your" ~ “STRENGTH 

S605 IF D<7 THEN LET CAA =fARHsS 


S6e@6 IF D<«? THEN LET S=5+D 





RN 
5620 PRINT “A UILD VOLF HAS BEEN 
TRAPPED FORYEARS IN THIS CAVE. 
IT IS", *°BREAKING FREE. YOUR 
Am RUNS FOR SAFETY VTL moa ELL Ye 


S622 GOSUB Sooo 

S623 PAUSE 250 

S624 IF D<12 THEN PRINT “YES. YO 
U MANAGE TO ESCAPE” 

a IF D<12 THEN LET CAVE=CAVE + 


S626 IF D211 THEN PRINT “HORRORS 
IT HAS CAUGHT", "AND VOUNDED °°: 5 


% 

a ibe D221 THEN LET B$="HNOUNDE 
°° 4 

paeaa IF 0211 THEN LET SINT s5.42 


5629 RETURN 
5640 PRINT “THE CAVE IS FULL OF 
eupee to. » GAS...FLEE FOR YOLIA L 


5641 GOSUB S000 

S642 LET CAVE=CAVE-1 

S643 LET S=S-INT (D/5) 

565@ RETURN 

S760 PRINT “IN THE CAVE ARE ": 


Ge 
S764 PRINT D+1;" SACKS...",”"°WHIC 
ONE DO z DARE OPEN?" 









S7a3 LET S=S-2 

S797 RETURN 

S80@ PRINT “YOU ARE LUCKY” 

S68@5 IF D>16 THEN PRINT “DIAMOND 
S AND RUBIES” | 
S8@6 IF 0<17 THEN PRINT “B 
SSL DoS IS 

5816 GOSUS 8ae 

Saif LET CASH=CASH+7.5aD 
5813 LET S=S+1 

5814 LET P=P+1 

5820 LET CAVE=CAVE+3 


70006 PRINT “" Se ST LIL aS 













7010 PRINT 
7020 PRINT “YOU, "; A$," AND “: BS 
7830 PRINT “MADE IT SAFELY ouT O 


FT 
7040 PRINT TAB (6), “CAVE SYSTEM" 
7OS06@ PRINT 








£SSe mR “YOU HAVE £€";CASH;" B 
Pl f ) ~ on 
7@76 PR 
7O@860 PRINT 
7O90Q@ PRINT “* AND SCORED “; 10% 
CASH +2045+3SOEP, “* POINTS” 
7100 PRINT 
7105S FOR A=1 TO 6 
PRINT °° gl teser: 






STOP 
S@0Q REM RANDOM NUMBERS 
6010 LET D=INT (RND#16) +1 


RETURN 
S200 ce MAKE UP PARTY 





6255 FOR W=1 TO 2 
6256 IF Ws=2 THEN CLS 
6260 PRINT “YOU HAVE £°; CASH 


TT 
6260 PRINT "YOU CAN HIRE ANY Ree 


S290 PRINT 
6300 PRINT “NAME £ COST STRE 
NGTH POWER” 


6320 PRINT “1: MORGAL 100 i2 


833@ PRINT “2: MERLIN 47 2 
8340 PRINT “3: MUMBLE 83 6 
8350 PRINT “4: HACKTO 98 a 
636@ PRINT “S: MINMUK = 64 3 
6370 PRINT 

838E@ PRINT “CHOICE ".WU 

8385 INPUT G(W) 

6390 GOSUB 850011026 (UW) 

6410 NEXT wW 

8412 RETURN 

8415 STOP 

8518 LET CASH=CASH-10a 

8511 LET S=S+12 7 
8512 IF W=1 THEN LET Ag="“MORGAL 


8513 IF W=ea THEN LET BS="HORGAL” 
8519 RETURN 


6/7 


IF W=1 THEN eae eee 


LET CASH=CASH —4 
LET S=:S+2 
LET P<«P+2@ 


iF W=2 THEN LET BS$=“NERLIN™ 
LET AS="NHUMRLE™ 


AE A 

IF WU=1 THEN 
LET easy =CASH-83 
LET S=5 -- 
LET P=«P+ 


IF W=2 THEN LET &$="“MUMBLE™ 
THEN LET A&="“MACKTO” 


RETURN 
IF W=1 
LET CASH=CASH-SO 
LET S=3S+9 
LET P=P+4#3 


= 
IF W=2 THEN LET BS$="“NACKTO" 


RETURN 


IF Ws1 THEN LET AS="“MINMNUK"™ 


LET CRSH=<CASH-64 
LET SxS s 
LET P=P+ 


IF ts=2 THEN LET BS$="HINHUK" 


RETURN 
STOP 

REM VARIABLES 
DIM G(2} 

LET O % oz ** 

LET P=6 

LET =@ 


LET 
LET 


RETURN 


SIMON 


In this 1K ZX81 program, you have to copy the sequence of 
numbers selected by the computer. The numbers are from 
one to four, and -- as you'll see when you run the program 
--they are printed in a position relating to the number, which 
makes it easier to remember the sequence. 


When you run it, a single number will appear, then be 
blacked out. Just touch the same number on the keyboard. 
The same number will appear again, be blacked out, anda 
second number appear. You have to touch both numbers, 





in order, to continue playing. And so on. If you remember 
seven in a row, you win. Otherwise, the program stops, 
showing you your score. Some interesting space-saving 
techniques are used in this game. 


TO M 
ZSAS¢t+STRSE CINT (RND#42 


80 PRINT AT L,M;A 
@ FOR J=#Z TO B@-xX 
EXT 


N J 
192 PRINT AT M; "R" 
193 LET KeRNDsRND 


11@ NEXT ©® 

12Q@ FOR B=Z2 TO xX 

122 IF INKEY$¢«o°"" THEN GOTD 1.22 
124 As INKEY $=" THEN GOTO 124 


g29, 000" AT 43 °(CODE INKEY$-2a) 

"1408 I FE Cope INKEY$<>CODE (AS (B) 
era GOTO 30a 

158 NEXT B 

455 IF X=M THEN PRINT 


Cc 

160 LET X=X+Z 

162 CLS 

16S FOR W=Z2 TO M+M 

166 NEXT W 

178 GOTO 78 

3QG PRINT “YOU SCORED “;X~-Z 








A TOUS VOS REPAS BUVEZ Yr,’ 


EAU MATTONI 


er). ‘} 0. 
: ni bbe tous les Héteis,bons melon ei yen hg Min, 
‘SERRE ee EA ARIS A A SSSI RN 














GRAND MASTER 


Here are five programs to produce pattern demonstrations on 
the ZX81. All except SNOWFLAKE fit within 1K. 


PERPETUA 


This program selects graphics or spaces from a string (A§, 
assigned tn line 10) and PRINT ATs this in a balanced, and 
quite pleasing manner. 








A=" ene 


BS=-ABCINT (RND#23) +1) 
39O8,LET A=RNGs15 

4@ LET B=RMND#31 

Y@ LET C=15 

66 CET O=-34 





7@ PRINT AT A,B, BS 

8Q@ PRINT AT C-A,8B;B§ 

9@ PRINT AT C-A,DO-B:. BS 
3 RA,DO-B; BS 


SNOWFLAKE 


This uses PLOT and UNPLOT to create a balanced pattern 
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inside a frame . It needs more than 1K. 
1 GOSUB Sea 
RAND 
1Q@ LET A=604RND+1 
20 LET B=4@3RND 


+1. 
3@ IF RND>.5 THEN GOTO i128 
5@ PLOT 4.6 


16@ UNPLOT 64-A,5 
16@ UNPLOT 64-A.42-8 
GOTO i 


S35 PLOT 63,43-d 
S50 NEXT 
S70 FOR J=1 TO 62 
SSO PLOT J,9 

LOT 


wai 
59@ PLOT 63-d,42 
S595 PLOT 63-J,41 


610 NEXT J 
615 PLOT 63.0 
620 RETURN 


PEA POD 


This uses PLOT, but is designed not to produce a balanced 
pattern, as the sample run indicates. The LET K = 
RND*RND lines are included to slow things down. By all 
means leave them out if you’re impatient. 


Tt A.B 
7@ LET K=RND £#RND 
SO PLOT fA. 

90 IF RND>RND THEN RUN 


100 PLOT C-A.6 


iI 


431@ LET K=RND##RND 
120 PLOT C-AR,D- 
13@ LET K=RND##RND 





135 RUN 

» fe : es Th all “A 
ag z«" aes ,2 & “a 
re, ee 

. "= g**8 on 5 . 

a 8 : —a. is 3 * 

- Reaa az & : ae 
"i Fae 2": “ee & 
=." g =". ae “a ae . 
ee ee 





SCARSDALE 


Scarsdale uses PRINT AT, but prints in pairs, that is, 
locations above and below each other (as will be clear when 
you run it). BS, inline 20, is an inverse space, aspace, anda 
graphics A. 


BS="3B BP“ tINT tRND#3) +2) 
38 LET Bone 3 


78 PRINT AT A.B: 68 . 

7S PRINT AT A+A/A, 6B, BF 

B@ PRINT AT C-A,56; BS 

S&S PRINT AT C-AtALA, 5B; BF 

908 PRINT AT C-A,D-B; BS 

3S PRINT AT C-A+A/A,0-6;B% 
198 PRINT AT A.D-B; BS 
195 PRINT AT A+ALA,D-B; BS 





BLIP BLIP 


Blip blip, which is based on the BUTTERFLY program in 
Tim Hartnell’s book GETTING ACQUAINTED WITH 
YOUR ZX81, produces the pattern shown below, perfectly 
balanced, but with no UNPLOT facility, so eventually the 
screen will turn completely black. 


ee Pee bee gh nh 
beso pea 
REL ren ares 
Peete... ste 









ss 





WARPO 


The WARPO is a spooky-looking alien who pops up at 
random on the numbers one to five. If you press the same 
number before he vanishes, he will turn into a checkerboard 
pattern, and your score will increase. He will appear 20 times 
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inaround. A good score is over 190. This takes 1K on anew 
ROM ZX80 or ZX81 and must be run in the FAST mode. 







B22 FOR A=@ TO 19 

90 PRINT AT 5.0:5 

100 LET T=INT (RND#2) +4 

110 LET P=INT (RND#5) 

120 PRINT AT @,.P#5;AS(T,1) 
625; Aas (T,2) 


~Rz5 
15@ ao INKEYS$<>oSTRS (P21) THEN 


160 LET S=S+tT21i1e@ 

179 PRINT AT @,P#S;" - 
189 PRINT TAB P#5;" a 
1990 PAUSE 36 


283 PRINT AT PsSj " 
246 PRINT TAB Onn est ‘ 
220 NEXT R 


BOWLING 


This program, which allows you to emulate (after a fashion) 
a 10 pin bowling alley, is written for a ZX81 with more than 
1K of memory. if you convert it for the ZX80, it will fit into 
1K. You bowl by hitting NEWLINE. There are 10 framesina 
game, two balis in a frame. You get a bonus of 15 if you get 
all 10 pins down with two balls, and a bonus of 30 if you get 
the pins down with the first ball. There is a highest score 


feature. 
10 pim a(10) 
20 LET Y=@ 
30 LET S=@ 
40 FOR 8B = 1 TO 10 
50 FOR E = 170 2 
60 PRINT AT 9,83 
70 PRINT "FRAME "SB,"BALL "SCHRS(E + 156) 
au LET Z2 = 0 


90 FOR C = 1 TO 10 





100 
110 
120 
130 
140 
150 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
280 
290 
300 
310 
320 
330 
340 
350 
360 
570 
380 
390 
400 
410 
420 
430 
440 


IF € = 2 THEN GOTO 120 
LET a(C) = 52 

IF 2S = 52 ANO RNO>.5 THEN LET A(C) = 61 

IF A(C) = 61 THEN LET Z 22+ 1 

NEXT C P er ae) 

PRINT CHRS(A(10))3" * "sCHRS(A(9))3" * "SCHRSZ(A 
seaeure eek 53 ; ;CHRB(A(8)); 
PRINT " # - CHRS(A(6))5" * “sCHAS(A(S))s" # 
CHRS( Al 4)) 

PRINT # Ns CHRS(A 3));" * "sCHRS(A(2)) 

PRINT " * ¥ * "9 cHRg(A(1)) 

PRINT 

PRINT 

PRINT "SCORE THIS FRAME "32 

IF — = 1 ANDO Z = 10 THEN GOTU 370 

If Z> 9 THEN LET Z = 15 

IF € = 2 THENLET S=S+2Z 

PRINT "SGORE SO FAR "35 

INPUT US 

NEXT E 

NEXT 8 

PRINT "SCORE FOR THAT GAME WAS "35 

IF S ¢ Y¥ THEN GOTO 330 

LET Y= 5 

PRINT “HIGHEST SCORE SO FAR "s¥ 

INPUT US 

CLS 

GOTO 30 

CLS 

PRINT "STRIKE" 
FOR R = 1 TO 200 
NEXT R 

LET S = S$ + 15 
LET E = 2 

CLS 

GOTO 230 





SPEEDWAY 


Here are three programs in which you have to drive a car 
down a track which twists and turns. Each fit within 1K ona 
ZX81, and use different tricks to squeeze within the limited 
memory. 
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RACER 


In this, your car is an inverse H (see line 110). The graphics in 
line 60 are inverse space, three graphic H, inverse space; 
and the graphic in line 70 is from the H key. Use the graphic 
A if you want to leave a trail. The spot in front of your car 
turns into your score. Any total over 236 is very good. The 
“M" and "2" keys will control your vehicle. 


T=Z 
58 D=-A-A.£AR 
60 PRINT AT C,0;" 
7@ PRINT AT A.B; “R 
8O@ SCROLL 
90 IF XINKEYS$="Z2" THEN LET &8=B- 


Zz 
100 IF INKEY$="M" THEN LET &=6B+ 


11@ PRINT AT co 
120 IF D<«AsU ABER LET D=D+2#RND 
125 IF D>U THEN LET D=D BERND 


140 PRINT AT AtZ,8; 
(PEEK 16396+PEEK 16 


1S@ IF PEEK 
3992256) e128 THEN PRINT T,W 
165 LET T=T+Zz 
i169 GOTO 68 


BRANDS HATCH 


Your car is a V this time, and the track is clear. Again ‘’Z’’ 
and “’M" control your vehicle, but the INKEY Sis interpreted 
in a different way from that in RACER (compare line 90 of 
BRANDS HATCH with lines 90 and 100 of RACER). 





20 LET A=-10 
25 LET 2=:ASrA 
3Q LET 6B=—A 
35 LET Y=B-B 





3 or =A 


A 
5a BRINT AT C.D; " | oi 
ze Grats 

aes oe Gab -(INKEY $a°2")"> LINKEY 
oo ** 


t4a PRINT AT A.B" 

12@ IF D<1i? THEN LET 0=0+23RND 
126 IF D2? THEN LET © =D—2<RND 
io DS PRINT AT 12 

150 IF PEEK (PEER? 1G6308+PEEK 16 
3992256) =128 THEN PRINT vy; 

155 LET Ys7+zZ 

16@ GOTO 6@ 


WISE-MAN 


The vehicle (a Y, which explains the title) is not 
“unPRINTed” so the Y turns into a long, swinging line of 
Y's which you must guide through the terrors of along and 
winding road (two graphic A’s, separated by two spaces). 


The 5” and ‘’8” keys control the Y's. Line 40 changes the 
line from which SCROLL operates. This technique was 
discovered by Alastair Gourlay (author of 30 AMAZING 
GAMES FOR THE 1K ZX81). This program fits a 1K ZX81. 


46 LET A=5 
29 LET J=ALA 
LET S=A4+A 
423 POKE 16413,A 
50 tleET K=S4#ri 
70 LET O=K 
80 Lle@T P= 
99 eae ae 
180@ PRINT TASB 0; "RH #" 
1190 LET D=D+RND sas (NOT 05°18) —RN 
De2e (NOT 0O<¢6}3 
13@ PRINT AT S.Ka “YY” 
440 PRINT AT S4+J.K: 
156 IF PEEK (PEEK 1639642562#PEF 
K 16399) =23365 THEN GOTO 2ea0 
27@ LET P=FP¢i 
sat aad K=K + CINKEY $="8") — CINKEY 
= 
190 GOTO 3@ 
280@ PRINT P 
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SNAP 


The 1K ZX80 (new ROM) or ZX81 generates a number of 
large print numbers (one to nine) in fairly rapid succession. 
You have to try and anticipate which number will be next by 
holding it down. If the computer's next number is the same as 
the one you are holding, the word SNAP is printed in large 
letters (using the routine starting at 33). There are 10 
numbers to a round. At the end of the round, your score is 
printed as a giant number. On a ZX81, you must run this in 
FAST. 


“ 


- 
= 


J OG & C9 ND pe 
0 POMP 
fb wt we we er 


O Phatnu~ 


A 
iad 
LET A 
LET A 
A 
A 
B 
3 


bs 1 


LET 31d Pessnasosncian: 

144133121 2335333 14141241351" 
8&8 GOTO 

18 FOR 

11 PRINT 


NEXT 
13 RETURN 


re 
a hg 

ad 
“| - 


S 
S(VAL BS(5S2X4+T) ) 


ps 
SQ 
Fi 


Cc 
29 PRINT “YOU SCORED" 

LET xX=5 
341 GOSUB 10 

STOP 
33 PRINT AT 1.16;",™ B&B 3 J™, 
34 PRINT TAB 16:" ™™, 24.3 Baw BL 
35 PRINT TAB 16. "San" F DE BS 
36 LET S=+S+i 


3r PAUSE 5e 
36 RETURN 





HADYN 


This game -- as you can see from the screen printout -- puts 
you (the ‘’O’’) within a frame, with inverse asterisks appearing 





SCORE 32 


every second or so. If one lands on you, you are dead, and the 
game is over. The ‘‘W’’ key moves you up, “’D"’ to the right, 
A" to the left and ‘“X’’ moves you down. You should be able 
to accumulate a score of more than 115. 


4@ PRINT ht nes te 
20@ FOR N=1._TO 14 
RINT “ 


390 P 5 | 
NE 
5@ PRI A -| 1 eee 
6@ LET P=1691 
792 LET =@ 
@ POKE S2 


B PP. 
98 PRINT AT 20,80; “SCORE °“;S 
16@ PRINT AT 1+ (RNDE13) .1+¢(RNDs 


3) 

11 bis PEEK Pc>S2 THEN STOP 

1290 PAUSE 36 

i30@ POKE FP .@ 

148 LET S$=5+2 

15@ LET P=P+ CINKEY $="D") —- CINKEY 
Ra ee ee ee Preemie 
160 IF PEEK P<>@ THEN STOP 
L789 GOTO 8G 
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UFO 


You are in command of a UFO in this 1K game, and little 
aliens (the letter As) are running about underneath. You 
have a limited time in which to destroy them. You fire by 
pressing '’1’’ but each shot drastically reduces the length of 
time you have left. ‘’5’’ and 8’’ move you back and forth. 
Enter a number between two and 31 at the start of the 
game. This number dictates the speed and direction of the 
aliens’ movement. Your score is shown at the top of the 
screen. 


20 LET BS="'A AR A FR 
RA 


30 LET Z=e8 

SO FOR J=1 TO 1000 

120 FOR E=12 ta 16 STEP 2 
12S PRINT AT 180,A: 
127 LET @=ABSs (AD 42 
130 IF INKEYS$<>°1" THEN GOTO 14 





2 

432 LET J=3+19 

135 PRINT AT “ee 

137 IF Bs (e- rae "he THEN LET z=2 
+3469 


140 PRINT AT E&,.80;,"° ° 

142 NEXT € 

eer IF INKEYS="1" THEN LET B&(& 
1i8e@ PRINT AT @.9.:2 

16@ PRINT AT 20, @; BS 

Pe Ghee LET BS=BS (UW TG I4+B6E012 TO We 


ce oe R=A-— CINKEY $="6") + CINKEY 
= ae 
~0@@8 NEXT J 


SQUASH 


There are three bails to a round. The ‘7’ moves your bat up, 
“6” moves it down. The longer you can keep the ball in play, 


the better your score. Any score over 67 is good. This takes 1K 
on a ZX81/new ROM ZX80. Run it in FAST. 


LET T= 
S = 


IF A=@ THEN Let C=INT (RNDs 


@ 
7@ LET A=A-1 


IF INKEY S$="?* THEN LET 6=-6- 
IF INKEY $="6" THEN LET 5=5+ 


PRINT AT &,13; “§ “ 

LET A=A-1 

PRINT AT C,A; “O" 

If R=-12 AND S=C THEN LET A 


ota ¥-T33 

x Az=-20 THEN GOTO 208 
GOTO S@ 

LET S5=S~2 


CLS 
IF 3S>@ THEN GOTO 2@ 
PRINT "YOU SCORED “VT 


CONVERTING 
PROGRAMS FOR THE 
NEW ROM AND THE 2X81 


It is generally fairly easy to convert programs written for old 
ROM ZX80's so they will run on the new ROM machines, 
although programs which include PEEKing and POKEing — 
especially into REM statements — can cause some 
difficulties. 

In many cases, you'll find the program runs far better ona 
new ROM machine. That is, it is more effective in giving 
user prompts, or a moving display, or in screen layout. 
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However, the new ROM is not as generous in memory as 
was the old ROM. Many 1K programs will not fit into 1K on 
the new ROM, because the systems variables for the new 
ROM use up much more of the original 1K than they do on 
the 4K ROM machine. 


MOVING DISPLAY 


Omit a moving display routine completely if inputting on old 
ROM program to a new ROM machine. Change the ‘time’ 
figure (usually given in the GOSUB line POKE 16414, n 
(where n is the ‘time’ figure). In other programs, the time is 
defined as LET T = n. Using the PAUSE functions, setn (as 
in PAUSE n) to give the most effective display, bearing in 
mind that PAUSE 5@ (PAUSE 690 in the U.S.) will hold the 
display for one second, pause 25 (PAUSE 30) for half a 
second, PAUSE 100 (PAUSE 12@) for two seconds and so 
on. You can get a guide as to which figure to place after the 
word PAUSE by keeping in mind that the higher the number 
used for time in the old ROM moving display (up to, and 
including, 254), the shorter the time the display is held. 


RANDOM NUMBERS 


It is more expensive — in memory terms — to generate a 
random number on the new ROM than it is on the old. 


Here are the two versions: 


OLD ROM NEW ROM 
LET J = RND(6) LET J = INT(RND*6) + 1 


Some memory is saved by the fact that INT and RND are 
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just single keystroke entries on new ROM machines, so 
each occupies just one byte. However, the multiplication 
sign, and the addition (which stops you getting @ as part of 
your sequence of random numbers) eat up memory. If you 
need to generate many random numbers within different 
ranges during the course of a program, it might be worth 
having a subroutine of the type: LET J = INT(RND*K) + 1, 
and assign K each time before GOSUBing. Of course, this 
will take longer than having the line in sequence, but if 
operating time is not vital (and it rarely is unless you're using 
an animated display), you'll find it will save you 
programming time and — in some programs — will also 
save you space if you do more in the subroutine than just 
generate random numbers. 


10 PRINT RND;” * ”; (where > is a single space) 
20 PAUSE 40 
30 GOTO 10 


This sequences can by very useful. For example, the line on 
the old ROM; IF RND(2) = 1 THEN... can easily be changed 
to the (almost) identical IF RND > .5 THEN... You can also 
use this to make statistically weighted decisions, so that if 
you want a particular program branch followed, say, about 
one in three times, you can just say: IF RND < .34 THEN 


PRINT AT oe 


There is a neat little routine, which used the line POKE Y*33 
+X + 1 + PEEK(16396) + PEEK (16397)*256, n to POKE 
character n onto the screen of an old ROM ZX80 at location 
Y, X(Y being lines down from the top of the screen, X being 
spaces across from the left hand side of the display). The 
new ROM machines do this automatically, and also has the 
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advantage of allowing you to have more than one character 
at this location. I'll explain: 


On the new ROM, you can use the PRINT AT command in 
the following way. You need to give two co-ordinates, Y 
(counted down from the top of the screen) and X (counted 
across from the left hand side of the screen). These are used 
in a line as follows, which will print the word END at about 
the middle of the screen: 


10 PRINT AT 10, 14;”END” 


You separate the two co-ordinates with a comma, and 
place a semi-colon after the second co-ordinate, before the 
words you want printed. The two co-ordinates can be 
worked out during the course of a program, so the line: 
PRINT AT B, A/3;"END” is acceptable. the function 
PRINT AT automatically ‘INTs’ anon-integer co-ordinate. 


So, if you need to print at a certain location, or you feel a 
program would be enhanced by a PRINT AT (and it can 
save a lot of blank PRINT lines, and loops which print single 
spaces across the screen), by all means do so. If you want 
an object to move, you'll have to add a PAUSE n command 
after the PRINT AT, at the same locations, with blanks 
occupying the same locations as those previously occupied 
by, for example, the work END. Here’s a simple example: 


10 LETA=0 
20 LETB=@0 
30 PRINT AT A,B;°X” 
40 PAUSE 30 
50 PRINT ATA, B;” *” (asingle space between quotes) 
60 LETA = A+ RND 
70 LETB=B8+RND 
80 IFA>18THENLETA = 0 


90 IFB>18THENLETB = @ 
100 GOTO 30 


This will make an X move erratically (more or less 
diagonally) across the scree. So, you can omit the long 
POKE Y*33...etc and replace it, on new ROM machines, 
with a simple PRINT AT. 


The new ROM also has a TAB function which can start a 
PRINT statement at any point you choose on a line, without 
you having to use a ‘blank spaces’ loop. 


OLD ROM NEW ROM 

10 FORA=1T010 = 19 PRINT TAB 10;"END” 
20 PRINT "*”; 

30 NEXT A 

40 PRINT “END” 


Note that you need a semi-colon after the number before 
the characters to be printed. TAB is a single entry function. 


GRAPHICS 


All the graphics symbols (including inverse graphics, 
inverse numbers and letters, even an inverse space) are 
available directly from the keyboard on new ROM 
machines. This saves use of the CHRS$(n) idea (although if 
you do need it, you'll be pleased to know that CHR$ is a 
single entry function). The ‘automatic’ inverse graphics can 
be used to ‘dress up’ programs by giving, for example, the 
instructions and user prompts in inverse letters. 


To convert others, use the following table, in which the old 
ROM position is followed by the new ROM: 
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Shift Q, graphic 5; Shift W, graphic 6; shift E, graphic 1; 
shift R, graphic 2; shift T, graphic D; shift A, graphic A; 
shift S, graphic T; shift D, graphic 4; shift F, graphic 3; 
shift G, graphic S. 


REM ~~ statements, TLS 


The first address after the word REM on the old ROM is 





16427. The equivalent address on the new ROM machinesis 
16514. You'll have to do some careful figuring to convert 
programs which rely heavily on data stored in a REM 
statement to get them to work on anew ROM machine. The 
TLS (truncate left) function on the old ROM is not available 
on the new ROM, so user responses which are two or more 


letters, which the computer assesses by stripping the string 
input character by character, will need to be replaced by 
prompts which allow the user to input (and the computer to 
deal with) the information single character by single 
character. The string arrays on the new ROM (which are 
actually character arrays) can be used as a form of 
READ/DATA. TLS(A$) can be simulated on the new ROM 
by A$(2 TQ). 


INT 


As a general rule, always add the function INT (a single 
keystroke on the new ROM) before a division. That is, if the 
old ROM program says LET F = A/16, the new ROM 
version should be: LET F = INT(A/16). This is not needed if 
you’re simply using the result of a calculation to PRINT AT 
or to TAB as the INT function is carried out automatically. 





This is a conversion table 
for PEEK/POKE addresses 
used with REM statements. 


OLD ROM NEW ROM/ZX81 


16426 16513 
16427 16514 
16428 16515 
16429 16516 
1643¢ 16517 
16431 16518 
16432 16519 
16433 1652¢ 
16434 16521 
16435 16522 
16436 16523 
16437 16524 
16438 16525 
16439 16526 
16449 16527 
16441 16528 
16442 16529 
16443 16539 
16444 16531 


16445 16532 





CODE MEANING 


"™" CO ADWPHOADNAODWNH=—8 


Successful completion 

NEXT with no FOR 

Variable name not found 

Subscript out of range, or error regarding subscript 
Not enough room in memory 

No more room on screen 

Arithmetic overflow 

RETURN with no GOSUB 

Attempt to use INPUT in the direct mode 

STOP statement executed 

Invalid argument to certain functions 

Integer out of range 

The text of the (string) argument of VAL does not 
form a valid numerical expression 

Program interrupted by BREAK or the INPUT line 
starts with STOP 

Program name provided (for SAVE) is the empty 
string 


CONT/CONTINUE is the same as GOTO m, where mis the 
line number displayed after the error code, except after 
code 9 when itis GOTO m + 1 
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DRAUGHTS IN 1K 


DRAUGHTS in 1K? We couldn't believe it could be done. 
But once we'd RUN this program, and discovered that it 
actually did play draughts/checkers, and really did take up 
less than 1K on the old ROM ZX80, we realised it would have 
to be in the book. The program is in two parts. The first sets 





up the board, and the second actually plays the game. All 
you do is input the first program, which ends at line 130 
(PRINT “READY”) and RUN it. Once you've done this, you 
input the second program, which erases lines from the first 
program. However, the information from the first program 
is held in the ZX80’s variables store, and — so long as you do 
not press RUN or CLEAR — will stay there. Then, to play 
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the game, you use the printed board, and buttons or coins 
as pieces. Your pieces start at the bottom on the page (on 
the low numbers) and the ZX80 starts at the top of the page. 
Once you've got the pieces in place, you either input GOTO 
10 (if you want the computer to move first) or GOTO 329 if 
you insist on having first move. 


The ZX80’s moves are shown as two numbers. The first is 
the square it is moving from, and the second — naturally 
enough — is the square it is moving to. Move the piece on 
the board as instructed, and then decide on your move. 
Make sure you move your piece BEFORE you input your 
move (which you do by inputting the number of the square 
you're moving from, then NEWLINE, then the square 
you’re moving to) or you may forget what your move was. 
At times, the ZX80 makes a decision so quickly you hardly 
have time to move your finger from NEWLINE before it has 
made, and printed, its decision. 


The ZX80 will make kings automatically (and use them most 
effectively) but there is no provision within the program for 
multiple jumps by either the computer or the player. Make 
sure you SAVE the program before you RUN it, or you'll 
lose the contents of the board. You need to reLOAD this 
program each time before playing. 


Here is the first part of the program, the section which sets 
up the board. If you have more than 1K, add 5@@ to each of 
the line numbers in this section, add the line 5 GOSUB 510 
and change line 13@ (which will be 639) into RETURN. This 
will mean you do not need to reLOAD each time, and you'll 
be able to use RUN, instead of GOTO. The ZX80 will have 
first move every time in the upper memory version. (Note 
the underlined asterisk * in line 11@. This symbol ts used 
throughout the book to indicate a single space 
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98 


199 
119 
126 
136 


IF Z < 73 AND Z > 55 AND NOT (Z = 67 OR Z = 68 
OR Z = 68 OR Z = 61 OR Z = 62) THEN LET A(Z) = 1 

IF Z < 54 AND Z > 42 AND NOT (Z = 47 OR Z = 48 OR 
Z = 49) THEN LET A(Z) = @ 

IF Z < 41 AND Z> 23 AND NOT (Z = 34 OR Z = 35 OR 
Z = 36 OR Z = 28 OR Z = 29) THEN LET A(Z) = -1 

NEXT Z 

LET AZ = "MY MOVE * " 

LET BS = "YOURS?" 

PRINT "READY" 


Input the program and RUN it. SAVE this a couple of times, 
and then input the following program. DO NOT PRESS 
RUN AGAIN or you'll lose the board. 


LET Q = @ 
FOR Z = 24 TO 72 
IF NOT (A(Z) = 4 OR A(Z) = 2) THEN GOTO 199 
IF A(Z) «= 1 AND Z? 23 AND Z<28 THEN LET A(Z) = 2 
FOR X = 1 TO 2 
IF A(Z + X(X)) < @ AND A(Z + 2% X(X) ) = @ 

THEN LET Q = X(X) 
IF Z ? 55 THEN GOTO 8¢ 
IF A(Z) = 2 AND A(Z - X(X))< @ AND A(Z - 2% X(X) ) 

« § THEN LET Q =» ~ X(X) 
IF NOT Q = @ THEN GOTO 129 
NEXT X 
NEXT Z 
IF Q = @ THEN GOTO 169 
LET A(Z + Q) = g 
LET A(Z + 2%Q) = A(Z) 
LET A(Z) = @ 
PRINT AZ3;Z, Z + 2*Q 
GOTO 329 
LET Y = @ 
LET Z = 23 + RND(49) 
LET Y = Y + 1 
IF Y < 19M AND NOT (A(Z) = 1 OR A(Z) = 2) 

THEN GOTO 179 

FOR X = 1 TO 2 
IF A(Z + X(X)) = @ THEN LET Q = X(X) | 
IF A(Z) = 2 AND A(Z ~ X(X)) = @ THEN LET Q = -X(X) 
IF NOT Q = # THEN GOTO 299 
NEXT X 
IF ¥ < 19M THEN GOTO 172 


278 PRINT "YOU WIN" 


28¢ STOP 

299 LET A(Z + Q) = A(Z) 
398 LET A(Z) = @ 

319 PRINT AZ3Z, 2 + Q 
32¢ PRINT ,Bg 

325 INPUT A 

338 INPUT B 

335 CLS 

349 LET A(B) = ~ 1 

358 LET ACA) = @ 

369 IF ABS(A ~ B) > 7 THEN LET A(A + ((B - A)/2)) = g 
378 GoTo 19g 


Space-Station 


The lives of a hundred or so colonists are in your hands. You 
are in control of a 4K space station, with limited food and 
oxygen, and subject to occasional attacks from space 
pirates. You make money, to buy oxygen and food, and to 
pay the annual maintenance bill for the station, by making 
and trading ‘ARTEFACTS’. Now, artefacts use up oxygen 
when they're being manufactured, so you have to choose 
carefully how many to make each year. This game is a space 
age version of KINGDOMS and — apart from the infrequent 
attacks from outer space — does not depend on random 
factors during the course of a game. It is almost completely 
a game of skill. Unless you are very clever, or the starting 
parameters are particularly generous, you are unlikely to be 
able to keep the station alive for more than 12 years. 


1 RANDOMISE 
1g GOSUB 36¢¢ 
2¢ LET YEAR = YEAR + 1 


3g LET FOLK = FOLK + FOLK/(2 + RND(18)) - FOLK/(3 + RND(15)) 


4g GOTO 71¢ 
5¢ PRINT "COMPUTERS REPORT: " 
6¢ PRINT 


7G IF OXY < OXYNEED * FOLK THEN GOTO 89¢¢ 

8¢ IF FOOD< FOODNEED * FOLK THEN GOTO 819¢ 

99 IF CASH <1 THEN GOTO 829¢ 

199 IF FOLK <2 THEN GOTO 8399 

119 IF FOLK <13 THEN PRINT “WARNING - POPULATION IS", 
“NEARING EXTINCTION" 

128 IF OXY <2 * OXYNEED * FOLK THEN PRINT "WARNING - 
OXYGEN SUPPLIES LOW" 
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86¢ 
88g 


IF FOOD< 2 * FOODNEED * FOLK THEN PRINT "WARNING - 
FOOD STOCKS LOW" 

IF CASH <2¢¢9 THEN PRINT "WARNING ~ MONEY 
RUNNING LOW" 


PRINT "**THERE ARE * ";FOLK;" © PEOPLE ON“ 
PRINT "THE SPACE STATION IN YEAR * "; YEAR; "##" 
PRINT : 

PRINT "MONEY CREDIT 1S £";CASH 


PRINT ,"ANNUAL MAINTENANCE: £&";REPAIR 
PRINT "OXYGEN TANKS HOLD * ";OXY3;" UNITS" 
PRINT "OXYGEN COSTS £";OXYCOST;" * PER UNIT" 
PRINT "OXYGEN NEED PER PERSON: * “;OXYNEED 
PRINT 

PRINT "FOOD STOCKS STAND AT * "; FOOD 

LET U = 128 + RND(11) 

FOR J = 1 TO 32 

PRINT CHRS (U); 

NEXT J 

PRINT 

RETURN 

GOSUB 5¢ 


PRINT "ARTEFACTS ~ HOW MANY WILL YOU",, "MAKE 
AND TRADE?" 

PRINT “ * * THEY USE UP * "s;ARTCOST;" UNITS OF" 

PRINT "OXYGEN AND SELL FOR £";ARTPAY 

INPUT B 

IF B * ARTCOST < OXY THEN PRINT "NOT ENOUGH OXYGEN" 

IF B * ARTCOST < OXY THEN GOTO 72¢ 

LET CASH = CASH + B * ARTPAY 

LET OXY = OXY ~ B * ARTCOST 

CLS 

GOSUB 5¢ 


PRINT "FOOD COSTS £";FOODCOST;" * PER UNIT" 
PRINT "EACH PERSON NEEDS * ";FOODNEED;" * FOOD UNITS" 


PRINT "(£"; FOODCOST * FOODNEED;" * EACH, £"s 
FOLK * FOODCOST * FOODNEED;" * FOR 
STATION" 

PRINT “THIS WILL LAST * “;FOOD/ (FOODNEED * FOLK); 
" * YEARS AT THE", "PRESENT POPULATION" 

PRINT "HOW MANY FOOD UNITS WILL YOU BUY?" 

INPUT C 

IF C * FOODCOST CASH THEN PRINT "NOT ENOUGH MONEY" 

IF C * FOODCOST CASH THEN GOTO 78¢ 

LET FOOD = FOOD + C * FOODCOST 

LET CASH = CASH - C * FOODCOST 

CLS 

GOSUB 5¢ 


PRINT “HOW MUCH OXYGEN WILL YOU BUY?" 
PRINT "(CURRENT STOCKS WILL LAST FOR * "; OXY/ 
(OXYNEED * FOLK);" * YEARS AT THE 
PRESENT POPULATION) 
INPUT Dp 
IF D * OXYCOST < CASH THEN PRINT “NOT ENOUGH MONEY" 
IF D * OXYCOST CCASH THEN GOTO 86¢ 


CLS 
IF RND(5) = 2 THEN GOSUB 7989 


LET FOOD = FOOD ~- FOLK * FOODNEED 
LET CASH = CASH —- REPAIR ~ D * OXYCOST 
LET OXY = OXY + D - FOLK * OXYNEED 
GOTO 2¢ 


LE? YEAR = RND(5) 
LET AS = “THE STATION IS DEAD" 


LET FOLK = 89 + RND(49) 

LET CASH = 7 * (798 + RND (898))/ RND(3) 
LET FOODCOST <= RND(7) 

LET ARTCOST = 1 + RND(3) 


LET FOOD = 2999 + RND(59@) 


LET OXY = 2008 — RND( 1549) 

LET OXYCOST = RND(7) 

LET ARTPAY = 39 * RND(ARTCOST) 

LET REPAIR = 299 + RND(49@) 

LET FOODNEED = 1 + RND(5) 

LET OXYNEED = 2 + RND(3) 

RETURN 

CLS 

LET J = RND(6) 

PRINT “fHE STATION WAS ATTACKED BY" 

If J = 1 THEN PRINT "A FLEET OF SYRIAN SHIPS" 

IF J = 2 THEN PRINT “RENEGADE EaRTHLINGS* 

IF J = 3 THEN PRINT “MARTIAN SPACE PILOTS* 

Ir J = 4 THEN PRINT “VYRILLIEX OUTVORLDERS* 

IF J = 5 THEN PRINT “A LONE SHIP, APPARENTLY UNDER",, 
"ROBOT CONTROL" 

IF J «= 6 THEN PRINT “A PARRALEXIAN ESCORT VESSEL" 

PRINT 

PRINT 

PRINT 

LET Z = 1 + (FOLK/ (RND(15) + 1) 

PRINT “THERE WERE * ";2;" * PEOPLE KILLED" 

PRINT 

LET 22 = 259 + RND(25@) 

PRINT * * * *# DAMAGE WAS £"322 

PRINT 

LET 222 = RND(3@9@) 

LET ZZZZ = RND( 399) 

PRINT "AND FOOD STOCKS HAVE FALLEN", ,"BY * "37.722 

LET FOOD «= FOOD « 2222 

LET FOLK = FOLK - Z 

LET OXY = OXY ~ 222 

LET CASH = CASH ~ 22 

PRINT 

PRINT ,,"PRESS N/L" 

INPUT US 

CLS 

RETURN 


PRINT AS 
PRINT "YOU RAN OUT OF OXYGEN IN YEAR * "; YEAR 
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36 


GOTO 892¢ 

PRINT AS 

PRINT "FOOD SUPPLIES WERE EXHAUSTED IN YEAR * "; YEAR; 
GoTo 81¢¢ 

PRINT AZ 

PRINT “TUE TREASURY RAN DRY DURING YEAR * ";VEAR;" * fy 
GOTO 821¢ 

PRINT "YOUR POPULATION HAS FALLEN" 
LET FOLK = RND(26) 

PRINT "fO * "sPOLK;". DO YOU WANT TO" 
LET CASH = “RND(38¢ 

PRINT “COMMIT SUICIDE PAINLESSLY " 
PRINT "NOW (1) OR AWAIT A SAD AND* 
PRINT "LINGERING DEATH? (2)" 

INPUT B 

CLS 

IF B» = 1 THEN GOTO 849¢ 

PRINT "J HOPE YOU HAVE CILOSEN WELL" 
GoTo 2¢ 

PRINT "GOOD BYE * "; 

GOTO 849¢ 


CHESSBOARD NIM 


You and the computer take it in turns to take pieces from the 
chessboard. The player who takes the last piece loses the 
game. The computer is programmed NOT to play a perfect 
game, to give you a chance to win now and again. If you 
want the ZX80 to win every time, and there is little fun in 
playing with it if you do, delete line 349. 


LET S « @ 
LET C = @ 
LET Z = 20 + RND(11) 
LET F 2 + RND(3) 
DIM A(32) 
GOTO 38¢ 
IF S$ = @ TIEN PRINT "PIECES ON BOARD "32 
IF S = @ THEN PRINT "MAXIMUM NUMBER TO REMOVE "3F 
IF C> @ AND S = @ THEN PRINT "YOU TOOK ";C; 

", I TOOK "3D 


FOR A = @ TO 3 

PRINT 

FOR B = @ TO 3 

PRINT minsta (oo + A —- B*8));CHRS( 128); 
NEXT B 

PRINT 

FOR B= @T 

PRINT uae oa cnn CRG oe + A ~ B*B)); 
NEXT B 
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NEXT A 

IF S = 1 THEN PRINT ,*YOU WIN" 

IF S$ = 2 THEN PRINT ,"I WIN" 

IF 3 > @ THEN STOP 

PRINT 

PRINT "HOW MANY WILL YOU TAKE?" 

INFUT C 

IF C214 0R CGC) F THEN GOTO 25¢ 

LET Z=2-C 

IF Z > @ THEN GOTO 31¢ 

LET S = 2 

IF S' = 2 THEN GOTO 38¢ 

LEf D= Z=- 1 - ((Z = 1)/(P + 1))*(F 

IF D = @ AND NOT Z = 1 THEN LET D = 

IF NOT D < Z% THEN GOTO 32¢ 

IF Z< F + 2 AND RND(4) @ 4 THEN LET 
D = D+ RND(2) — RND(2) 


+ 1) 
RND(F) 


IF D) F THEN GOTO 319 


If D = @ THEN LET D =» 1 
LET Z = Z2= D 

IF Z = @ THEN LET S = 1 
FOR A = 1 TO Z 

LET ACA) = 52 

NEXT A 

FOR A = Z + 4 TO 32 
LET A(A) = @ 

NEXT A 

CLS 

GOTO 7¢ 
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BOMB 


You are searching on a solid black plane (a 9 x 9 grid of 
CHR$(128)’s) for a bomb, armed only with your keyboard 
and NEWLINE. A ‘bomb detector’ — a number which 
appears below the large black square — gives you clues to 
tell you where you arein relation to the bomb. You'll have to 
learn how to interpret the detector’s output. You move by 
hitting the keys 5, 6, 7 or 8 before NEWLINE, and you move 
in the direction of the arrows on these keys. When you find 
it, an inverse ’’B’’ will appear where the bomb was hidden. 
This 1K program also gives you a readout of howlong it took 
you to find it. If you are converting this program to run ona 
new ROM machine, you can change lines to accept an 
INKEYS input (you will need a PAUSE 49) as well to save 
you having to press NEWLINE after each guess. 


19 LET S = ¢ 

2g LET A = 1 + RND(8) 

39 LET B = RND(9) 

4g LET K = 16396 

597 LET Q = 128 

69 FOR Z = 1 TO 19 

18 PRINT g55>5 

89 NEXT Z 

99 FOR X = 2 TO 19 

199 FOR Y= 1 TO 19 

119 POKE ¥ * 33 + X + PEEK(K) + PEEK( K + 1)*256, Q 
129 NEXT Y 

13¢ NEXT X 

149 LET C = 1 

15¢ LET D = 1 

169 POKE C * 33 + D+ 1 + PEEK(K) + PEEK(K + 1)*256, 189 
174 LET S = S 4 1 

189 INPUT EZ 

199 POKE C * 33 + D+ 1 +4 PEEK(K) + PEEK (K + 1)#256, Q 
299 IF EZ = "7" THEN LET C = C - 1 

21¢ IF ES = "5" THEN LET D = D ~ 1 

229 IF EZ = "6" THEN LET C = C 4 1 

239 IF EZ = "8" THEN LET D = D + 1 

249 IF C<1 TIEN LET C = ¢ 

259 IF C49 THEN LET C = 9 

269 IF D<¢1 THEN LET D = 1 

279 IF D>9 THEN LET D = 9 

289 IF A = C0 AND B = D THEN GOTO 319 


298 POKE 187 + waa + PEEK(K + 1)*256, ABS(B ~ D)+ 
156 


BS(A =~ GC) + 
308 GOTO 169 
319 PRINT "SUCCESS AT * "3C,D;" * IN * "33; * TRIES" 
326 POKE C #33 + D+1 +4 PEEK (K)™ + PEEK (K 4 1)*256, 167 


BLACKJACK 


John Scarne, in his authoritative SCARNE’S 
ENCYCLOPEDIA OF GAMES, says Blackjack is ‘‘the most 
widely played banking card game in the world”. It is 
relatively simple to play: The players try to get as close as 
possible to a total of 21, without exceeding 21. Aces count 
as either 1 or 11, and Kings, Queens, and Jacks each count 
as 10. This program automatically assigns a value of 1 to an 
Ace if counting it as 11 would force the total over 21. The 
human player always goes first in this ZX80 version of the 
game. After each card is handed out, you have the option of 
taking another one, or ‘‘standing”, that is staying as you are 
(see line 80). The round is a draw if both of you reach the 
same total, and it is less than 21. If you “bust”, that is you 
exceed 21, the ZX80 wins that round automatically. The 
PRINT lines in this 2K program are a good example of ZX80 
arrogance. 


18 GOTO 168 


2¢ LET CARD = RND(11) 

38 IF CARD = 11 AND D + CARD> 21 THEN LET CARD = 1 

35 LET D = D+ CARD 

4d RETURN 

5d LET CARD = RND(11) 

69 IF CARD = 11 AND B + CARD> 21 THEN LET CARD = 1 

65 LET B = B + CARD 

oT, RETURN 

89 PRINT " * * * ANOTHER CARD (1) OR WILL",,"YOU STAND (g)?" 
98 INPUT G 


198 RETURN 


119 PRINT ,,,,, " * * * ANOTHER GAME, CARD-SHARP?" 
129 INPUT Ag 


139 CLS 
149 IF NOT AZ = "NO" THEN RUN 
158 STOP 


99 


100 


169 


LET D = ¢ 
LET B = @ 
GOSUB 29 
LET H = CARD 
GOoSUB 2¢ 
LET A = CARD 
Gosus 5¢ 
LET E = CARD 
GosUB 5¢ 
LET F = CARD 


LET BS = "THE ZX89 HAS * *; 
LET C%¥ = "THE HUMAN HAS # ® 
PRINT ,BASH 

PRINT ,CZ;E;" * AND * "3F 
PRINT ,,"TOTALLING # "3; E+ F 
LET D = H +A 

LET Be2=- EF +¢« F 

IF B = 21 THEN GOTO 44¢ 
COSUB 8f 


IF G = 1 THEN GOTO 499 
CLS 2 aa 3 7 = : 
IF D C17 THEN GOTO 539 Se a 
IF NOT D = 21 THEN PRINT ,BZ;D 
IF NOT B = 21 THEN PRINT ,CS3B 
IF B = D AND NOT B = 21 THEN PRINT ,"SO THIS ROUND 
IS A DRAW" 
IF.D = 21 AND NOT B = 21 THEN PRINT BS; "BLACKJACK..." 
IF B? 214 THEN PRINT C%;"BUSTED",,"SO ZX80 WINS..." 
IF D< B AND NOT D> 21 THEN PRINT " * *# * ZX8@ DESTROYS 
HUMAN WITH A ",,"BRILLIANT DISPLAY OF#, ,"cARD PLAYING" 
IF D> 21 THEN PRINT BZ; "BUSTED" 
IF D< 21 OR (B? D AND NOT B > 21) THEN PRINT " * # # 
YOU HAVE WON SOMEHOW...",,"LUCK, I GUESS" — ~ ~ 


GOTO 119 

PRINT C¥;"BLACKJACK" 

IF NOT D = 21 THEN GOTO 37¢ 
PRINT "BUT SO HAS THE CLEVER COMPUTER,",,"SO ITS A DRAW" 
GOTO 112 

GOSUB 5¢ 

PRINT CZ;CARD;" * TOTAL: * "3B 
IF B> 21 THEN GOTO 499 

GOTO 349 

PRINT BZ;D 

INPUT UZ 

GOSUB 2¢ 

PRINT BZ; CARD 

PRINT "SO ITS TOTAL IS * "3D 
INPUT UZ 

IF D> 21 THEN GOTO 429 

IF D < 17 THEN GOTO 549 

GOTO 379 





DARTS 


This 1K program shows the REM statement being used to 
hold DATA for subsequent READing, thus substituting for 
the absent READ/DATA function in ZX80 BASIC. This 
game allows two players to choose from three shots to build 
up a total of 250. The result of your choice is not entirely 
random, and quite specific strategies can be developed 
which will give different results. Play it a number of times to 
determine.your own strategy before challenging a friend. 
The score for player one is stored in address 16541 (on the 
old ROM ZX80), and player two’s score is 16452. These are 
reset to zero, by lines 20 and 3@, every time a new game is 
played. These are the only two addresses which are POKEd 
with new values, so these are the only two which have to be 
reset. The others -- the values of the “darts throws” -- are 
only PEEKed. One is added to the values obtained from the 
REM statement, and these are multiplied by 1@ in the PRINT 
lines 1050, 1060 and 10790. 
19 REM 8 shiftQ shiftW shiftE shiftW space shiftw 


space shiftW shiftE shiftE space shiftE 
space shiftE shiftD shiftE 4Aspaces 





2g POKE 16451, ¢ 

39 POKE 16452, @ 

4g PRINT “WHICH SHOT PLAYER 1 (1 TO 3)* 
59 LET Z = 1 

69 INPUT A 

18 IF AC 1 OR A > 3 THEN GOTO 6¢ “ 
8¢ LET A = A + 1 

9g CLS 

198 GOSUB 19¢¢ int 
11¢ CLEAR 

128 PRINT 

139 PRINT “WHICH SHOT PLAYER 2? (1 TO 3)" 
149 INPUT A 

15¢ LET Z = 2 

16g IFA “<1 OR AD 3 THEN GOTO 149 

178 LET A «= A + 1 

18g PRINT bi 
194 GOSUB 19¢¢ 1" 
298 PRINT 

219 PRINT ,"N/L FOR NEXT THROW" ‘ 
226 INPUT AS 

23¢ IF NOT AZ = "" THEN STOP 

24¢ CLS 

259 GoTo 4¢ 
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1999 LET C = 1 + RND(42) 

1919 IF A = PEEK(16426 + C) THEN LET J = PEEK (16459 + 2) 
1929 IF NOT A = PEEK(16426 + C) THEN GOTO 19¢¢ 

1938 POKE 16459 + Z, J + PEEK(16427 + C) 


1949 IF PEEK(16427 + C ) = 6 THEN PRINT ,"--BULLSEYE--" 
195¢ PRINT "YOU GOT * "319*PEEK(16427 + C);" * FROM 
A * "sA — 4 
1969 IF Z = 1 THEN PRINT ,"TOTAL, PLAYER 13 * *; 
19*PEEK (16451 
1978 IF Z = 2 THEN PRINT ,"TOTAL, PLAYER 2: * %; 
19*P EEK (16452 


198¢ IF se eee + Z)> 258 THEN GOTO 2999 
1999 RETU 

2969 CLS 

2919 PRINT "PLAYER * "323" * IS THE WINNER" 
2929 PRINT ,, "PLAYER 43% "S41 9*PEEK (16451 

2939 PRINT ,,"PLAYER 2: * "3 19*PEEK( 16452 

20949 CLEAR 

2958 PRINT "WHAMMO..."; 

2969 GOTO 245¢ 


MORDECHAI-MIND 


This game is marketed under the trade name MASTER- 
MIND by Invicta, who bought the rights to the game from 
an amateur mathematician, Mordechai Meirovich, in 1971. 
The game has been popular in England for centuries under 
the name BULLS AND COWS. The principle is simple. The 
computer picks a four-digit code, using the numbers 1 to 9, 
and never repeating the same digit within the code. You 
input your guess for the number, as a four-digit number, 
then press NEWLINE. A correct digit in the correct location 
will gain you a ‘‘black’’, a correct digit in the wrong position 
scores a ‘’white’’. You have just 10 guesses to crack the 
code. Do not use the same digit twice in a single guess, or 
you'll confuse the poor little ZX80. 


19 DIM c(4 

29 DIM Q(4 

3¢ LET Aa = RND(9) 

49 FOR Z = 2 TO 4 

59 LET az) «= RND(9) 

69 FOR J = 1 TO Z ~ 1 

7B IF c(J) = G(Z) THEN GOTO 49 
89 NEXT J 

90 NEXT Z 


FOR G = 1 TO 1g 

INPUT A 

LET Ai = A 

FOR Z = 1 TO 4 

LET G(Z) = A - 16*(A/18) 

LET A = A/1¢ 

NEXT Z 

LET B «= @ 

FOR Z = 1 TO 4 

LET W= @ 

IF NOT C(Z) = G(Z) THEN GOTO 23¢ 
LET B = B+ 1 

LET G(Z) = @ 

NEXT Z 

FOR Z = 1 T0 4 

IF G(Z) = @ THEN GOTO 39¢¢ 

FOR J = 1 TO 

IF NOT ata) = G(J) THEN GOTO 299 
LET W= W + 1 

NEXT J 

NEXT Z 

PRINT A1;" * SCORED * * ";CHRS(B + 156);" * BLACK"; 
IF B = 1 THEN PRINT ¥ # #; 

IF NOT u = 1 THEN PRINT "S"; 
PRINT * # * * "SQHRS(W + 156)3" * WHITE"; 
IF NOT W = 1 “rH PRINT "S's 
PRINT 

IF B = 4 THEN PRINT “YOU GUESSED IT * "; 
IF B = 4 THEN GOTO 419 

NEXT @ 

PRINT "THE CORRECT CODE WAS * "; 
FOR Z = 1 TO 4 

PRINT C(5 ~ Z)s3 

NEXT Z 


CHALLENGE CHECKERS 


The Victorians loved to play a variation of DRAUGHTS 
which they called REVERS! (a name also given to an early 
version of OTHELLO, but that’s another story). This is the 
ZX80 and ZX81 version of the game. It’s played on a 
standard draughts board. You start on the right hand side, 
the computer on the left. In CHALLENGE CHECKERS, you 
follow the ordinary rules of draughts, (diagonal moves only, 
capture by jumping over an opponent's piece into an empty 
square) with a few exceptions. There are no multiple jumps, 
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and no kings. As well, you can move backwards and 
forwards as you choose (as if you had a board of kings). But 
the major difference between CHALLENGE CHECKERS 
and draughts — and the whole point of the game — is the 
result of a capture. In ordinary draughts you take your 
opponent’s piece off the board. In CHALLENGE 
CHECKERS the piece changes to become one of yours 
(which is why the Victorians called it REVERSI). The winner 
is the first player to ‘‘convert” eight pieces. 


lf you'd like to read more about turn-of-the-century variants 
of draughts, take a look at Roger Millington’s splendid book 
GAMES AND PUZZLES FOR ADDICTS. The giant book 
PLAY THE GAME — OVER 40 GAMES FROM THE 
GOLDEN AGE OF BOARD GAMES compiled by Brian 
Lowe also shows how other games were developed from 
draughts. 


TWO DIRE WARNINGS: Sometimes you'll find 
CHALLENGE CHECKERS locked into a I'LL TAKE ONE OF 
YOURS, THEN YOU TAKE IT BACK cycle. If this happens, 
move another piece, or you'll still be playing the game when 
your computer reverts to its constituent elements. The 
second warning: This game is highly addictive. Oh, and by 
the way, you need at least 4K to play this game. 


1g GOTO 9699 

2g GOSUB 5999 

35 LET Q = @ 

49 IF SI = 8 THEN LET Q = 1 

5g IF SM = 8 THEN LET Q = 2 

1909 IF Q) @ THEN GOTO 5¢¢¢ 

1919 PRINT 

1926 IF AS > "" THEN PRINT "YOUR LAST MOVE WAS TO * ";aZ 


1939 PRINT “THIS MOVE: FROM? (LETTER, NUMBER)" 
1949 INPUT BS 
1950 PRINT Bg;" * ‘To? 


INPUT CZ 

LET AZ = CB 

FOR W= 1 TO 2 

IF W= 1 THEN LET EZ = a 

IF W = 2 THEN LET EZ = CZ 

LET Y(W) = ee = "C4") -62"(EB = "A2") -49*(BS ="A4") 
~36*(EZ = "A6") ~23"(EZ = "AB") -69*(EZ = "B1") 
-56*(EZ = "B3") - 43*(EB = "B5") ~ 63*(bZ = 
"C2") ~ 37*(EZ = "C6") - 24*(EZ = "CAa") - 79% 
(EZ = "Di") ~ 57*(EZ = "D3") - 44*(EZ = "D5") 
~31*(EZ = "D7") ~ 64*(EB = "E2") - 51*(EZ = 
BA) an 38*( ES ee th6 1) a 25*(ES ‘s thee # ) ~7i* 
(EZ = "Fi") ~ 58*#(EX = "F3") - 45*( EZ = "F5') 
-32"(ES = "F7") — 65*(EZ = "G2") -52*(ES = 
"G4't) ~ 39*(RZ = "G6") ~26%*( EZ = "Ga') ~72% 
(EZ = “H1") ~ 59*#(ES = "H3") - 46*(ES = "H5") 
~33*(EX = "H7") -39* (BS = "B7") 


NEXT W 

LET tiyta = 1 

LET A(¥(1)) = g 

IF ABS(Y(1) ~ Y¥(2)) > 7 ‘THEN LET SM = SM + 1 
IF Y(t) = Y(2) = 12 THEN LET A(¥(1) - 6) = 1 
IF ¥(4) - Y(2) = 14 THEN LET a(y(1) - 7) = 1 
IF ¥(2) - ¥(4) = 12 THEN LET A(Y(2) - 6) = 4 
IF ¥(2) - ¥(1) = 14 THEN LET A(Y¥(2) - 7) = 1 
LET MOVE = 1 


GOSUB 59¢¢ 


REM COMPUTER JUMPS 
LET X ad g 
FOR Z = 23 TO 72 
IF NOT A(Z) = 9 THEN GOTO 298¢ 
IF A(Z + 14) = 9 AND A(Z + 7) = 1 THEN LET X = 14 
IF X = @ AND A(Z + 12) = @ AND A(Z + 6) = 
THEN LET X = 12 


IF X = 9 AND A(Z ~- 14) = @ AND A(Z ~ 7) = 1 
THEN LET X = ~14 

IF X = @ AND A(Z =~ 12) = @ AND A(Z - 6) = 1 
THEN LET X = -—42 

IF X = @ THEN NEXT Z 

IF X = @ THEN GOTO 39¢¢ 

LET SI = SI + 1 

LET A(Z) = @ 

LET A(Z + X) = 9 

LET A(Z + X/2) = 9 

GOTO 2¢ 


RFM COMPUTER MOVES SAFELY 

LET X= @ 

LET Y = 9g 

LET Z2 = 22 + RND( 5¢@ ) 

LET Y = Y + 4 

IF Y 4 5@ AND NOT A(Z) = 9 THEN GOTO 393¢ 

IF X= @ AND A(Z —- 6) = 9 AND A(Z —- 12) 2 g 
THEN LET X = - 6 

IF X= g AND A(Z = 7) = @ AND A(Z = 14) & @ 
THEN LET X = - 7 
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IF X = # AND A(Z + 6) = @ AND A(Z + 12) = @ 
THEN LET X = 


IF X= @ AND A(Z + 3) «e @ AND A(Z + 14) = @ 
THEN LET X = 

IF X = 9 AND YZ5f THEN GOTO 3939 

IF X = 9 AND ¥? 49 THEN GOTO 4999 

LET A(Z) = @ 

LET A(Z + X) = 9 

GOTO 29 


REM COMPUTER MOVES RANDOMLY 
LET Y= g 
LET Z = 22 + RND(59@) 
LET Y= ¥ + 1 
IF Y 5% AND NOT A) « 9 THEN GOTO 492¢ 
IF A(Z +7) = LET X = 
IF X = @ AND ee + » @ THEN LET X = 6 
IF X = 9 AND A(Z - 6) = @ THEN LET X = -6 
IFX=@A By =» §@ THEN LET X « -7 
IFXe@GaA THEN GOTO 492¢ 

ZA THEN GOTO 4599 


i << > 
Fey 


REM PRINT BOARD 
L 


ET Us we «(OTe 

CLS 

PRINT 

PRINT 

PRINT 

PRINT "ZX80 * sSI,,, "HUMAN * '3SM 

PRINT = 

PRINT ," # # * * # 42345678" 

PRINT ," Aspaces “shiftF S8shiftT shirtp" 

PRINT ," * * ® A"3CHRS(130);"/" A(62) 5 8/"5A(49) 587"; 
A(36)3"/"3A(23)3 "shiftqu 

PRINT ," # # # Pts hae 
n/t; A(3@) "/ 4g 

PRINT ," *# # # Oo"; cHRS (438); s4/n PACES) 54/95 A(58)3 "7"; 
A(37) 3"7"3A(24 3 "shiftQr 

PRINT ," * * * ein er ae sA(57)3"/"30(44) 

" a 

PRINT ,* * # # Br scHhsl 43); #/"0k (64) pU/UgACSA) 3/5 
A(38)5"7";A(25)5 "ahifta 

PRINT ," # # * iy caine); ari) 179;4 (GAAS) 


"/"3A(32)3%/7 shiftQn 


9239 
9249 


PRINT ," * * * G",CHRS(138)3%/"3A(65) 5 "/"3A(52) 5 "7"; 
™ ™ "" A(39) 3 "/"3A(26)3" shiftQn 
PRINT ," * # * HY; CHRS (138) 3A(72) 5 "7"5A(59) 3 "/"3A(46)5 


/3A(33)3"/ shiftQn 
PRINT ," 4spaces shiftR S8shiftG shifteE" 
PRINT ," * # * * * 142345678" 
IF Q = 1 THEN PRINT ,,"1 WIN" 
IF Q = 2 THEN PRINT ,,"YOU WIN* 
IF Q> @ THEN STOP 
IF MOVE = 1 THEN PRINT ,,,,,"°YOUR MOVE WAS TO * ";Cf 
IF MOVE = 1 THEN INPUT UZ 
IF MOVE = 41 AND US = "S" THEN STOP 
LET MOVE = @ 
RETURN 


DIM A(92) 

LET MOVE = @ 

LET AZ = "# 

LET Q = @ 

LET SI = @ 

LET SM = @ 

FOR A = 1 TO 92 

NEXT A 

FOR A = 23 T0 39 

IF A = 29 OR A = 28 OR A = 27 OR A = 34 OR A = 35 
THEN GOTO 9199 

LET A(A) = 1 

NEXT A 

DIM ¥(2) 


FOR A = 43 TO 52 

IF A = 47 OR A = 48 THEN GOTO 914g 

LET A(A) = @ 

NEXT A 

FOR A = 56 Y0 72 

IF A = 68 OR A = 61 OR A = 66 OR A = 67 OR A = 68 
THEN GOTO 9189 

LET A(A) = 9 

NEXT A 

PRINT 

PRINT “WILL L HAVE THE FIRST" 

PRINT ,"MOVE? (Y OR N)" 

INPUT PS 

IF PZ = "Y" THEN GOTO 2¢¢¢ 

GOTO 2¢ 


ASCOT 


Five tiny horses, convincingly disguised as the letters A to 
E, race up the 4K screen and then down again in ASCOT. 
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When they reach the finish line, the moving display freezes 
for a time, showing the horses, and giving each rider points 
for the way he has ridden. Once you've read the results (and 
collected your winnings from your friends), the display 
automatically ‘‘unfreezes’’ and a new race is underway. 
This program is an interesting example of full-screen 


graphics. 


(Note: Lines 19 to 13@ are the ‘’Vasey moving display” 
which is used in certain other programs in this book. The 
first POKE address in line 30 should be 19000 as given, for 
4K programs. The GOTO destination in line 50 may be 
different in other programs in this book using this routine. 
The routine is copyright © P Vasey, 1981, and may not be 
used as, or as part of, any product or program offered for 
sale or publication.) 


19 REM CDEG#6CDC29581 2991 DICDC295 1893 CDA DS 196981 9FE2ZA1E4923 
221E497 CDEPSCBH23 DBFES E3832 23 49965 E18FED3 FE3EEC#6192A 


JC4PSCBFCCDADS13EF5942BFD352318CA 
29 FOR A = @ TO 67 


3g POKE 19999 + A, 16*%(PEEK(16427 + 2*A) -28) + PEEK 
16428 + 2*A) - 28 
49 NEXT A 
58 GOTO 99¢¢ 
19¢ POKE 16414, T 
119 POKE 16415, 255 
129 LET XX = USR( 19999) 
139 RETURN 
Age ee A =P + RND(2) 
0 3*ABS(A - 18 
Ge Secaaah: arty. feaan + sates 
* B- 18 
350 LER Piles 3 i eae + PEEK(G) + PEEK(H)*256,39 
E 33*ABS(C ~ 18 6 
518 Ln oa meet » macs) > * PO) + PHERCHD 256,48 
- 18 
390 Let & es De + PEEK(G) + PEEK(H)*256,41 
3*ABS(B - 1K 
Het focus ( 18) + 22 + PEEK(G) + PEEK(H)*256,42 
2999 IF A) 35 OR B>35 OR C>35 OR D? OR E 
aero osie 35 OR E > 35 THEN 
3999 POKE 33*ABS(A - 18) + 19 + PEEK(G) + PEEK 
H)* 
“ete POKE 33*ABS(B - 18) + 13 + PEEK(G) + Pe ihecee se 
392 POKE 33*ABS(C - 18) + 16 + PEEK(G) + PEEK (Hf) *256, 128 


3938 POKE 33#ABS(D - 18) + 19 + PEEK(G) + PEEK(H)¥*256,128 
394¢ POKE 33*ABS(E —- 18) + 22 + PEEK(G) + PEEK(H)*256,128 
385¢ GOTO 39¢ 


9009 LET XX = @ 
9895 CLS 

94198 LET A 
9415 LET B 
992¢ LET ¢ 


1 
1 
1 
9625 LET D = 1 
1 
1 


9939 LET E 
9635 LET @G oe 
9849 LET H 


G 
9945 LET Ag = cuns(120)9 CHAS (428) CHRACI 28); CHRS (128) 
9958 LET T = 249 
9969 FOR F = 1 TO 18 
9078 PRINT "shiftA 5spaces *";AZ;AS;AB;A8;"* Sspaces shifta" 
998¢ NEXT F 
9798 GOTO 349 
958¢ PRINT ,"THE RACE IS OVER" 
9516 PRINT " * * * * PINAL POINTS: A #* ";A;" « & 
9528 PRINT ,"C * Wey x x *D*# SD; # * * Ee ey 
9525 LET T= ¢ a ee en ee 
9538 GOSUB 199 
9558 RUN 9929 


ANTI-HANGMAN 


This, as you've cleverly deduced from the title, is 
HANGMAN in reverse. You think of a word, and the 
computer tries to guess it. When you RUN this program, 
the computer will first ask you how many letters there are in 
the word. Then you'll see CHARACTER? on the screen. 
Input the character you wish to use for blank spaces in your 
word (+, *, - or whatever). The ZX80 will then think of a 
letter. If this letter is in your word, type the number of the 
letter in the word. That is, if your word is APPLE and the 
computer guesses E, respond by typing 5. If the letter is 
wrong, input @. After a correct letter, the computer will 
leave it there until you type @, to allow for double letters. So, 
if it thought P, you’d respond with 2, then NEWLINE, then 
3, then NEWLINE, then @. This 1K game is great fun to play, 
and you'll find the long-suffering ZX80 has a much better 
chance of guessing your word within its 10 goes if you think 
of along word. 
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1g REM ETAONRISHDLFCMUGY PWBIKQXVZ 





29 LET L = 19 

39 PRINT "LENGTH OF WORD?" 
4g INPUT N 

59 PRINT "CHARACTER?" 

69 INPUT Qf 

77) LET Q = CODE(Q%) 

og DIM A(26) 

99 DIM C(N 

104g DIM G(N 

119 FOR Z = 1 TO 26 

129 LET A(Z) = PEEK (16426 + Z 
139 IF 2 < N + 1 THEN LET G(Z) = Q 
149 NEXT Z 

158 LET Z = RND(3) 

166 LET AS = CHRS (A(z)) 
178 FOR J = Z TO 25 

189 LET A(J) = A(J +4 1) 
199 NEXT J 

209 LET A = @ 

219 CLS 

229 PRINT , 

239 FOR Zs 1 TOR 

248 PRINT CHRS(G(Z))3 

259 NEXT Z 

269 PRINT 

278 PRINT 

289 PRINT ,"LIVES="31 

299 PRINT ,1 GUESS * "sAZ 
399 INPUT B 

319 IF B = 2 THEN GOTO 359 
329 LET A 

339 LET a(B). # CODE(AS) 





348 GOTO 219 
358 LET Fe @ 


3698 FOR Z = 1 TON 
378 IF G(Z) = Q THEN LET F e@ 1 
39g NEXT Z 

3998 IF F = @ THEN PRINT ,"I WIN" 
499 IF F = g THEN STOP 

41g IF A = § THEN LET L = L - 1 
429 IF L> §@ THEN GOTO 159 

439 PRINT ,"YOU WIN* 


SNAIL RUN 


Four tiny snails crawl (at an ever-increasing speed) across 
your screen from right to left. They carry numbers on their 
backs. Well, they don’t really, but you'll see what we mean 
when you RUN the program. If you feel adventurous, you 
could, | suppose, even bet on the outcome of a race. The 
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routine can be used for tiny cars, or whatever, and if you 
have more than 1K, you can easily extend the program for 
eight or more snails or vehicles. 


LINES 10 TO 4@ Vasey moving display. First POKE address 
in line 30 is 17279. 


GOTO 249 

POKE 16414, 2¢¢ 
POKE 16415, 255 
LET XX = USR(1727@) 


RETURN 

LET C = @ 

LET Ee @ 

LET F = @ 

LET D = ¢ 

LET C = C + ah Ed - 1 
LET D = D + RAND(3) ~ 1 
LET E = E + RND(3) ~ 1 
LET F = F + RND(3) - 1 
FOR A = 1 TO 28 ~C 
PRINT " * " 

NEXT 

PRINT “shiftT 1 shifta" 
PRINT 

FOR A = 1 TO 28 ~ D 
PRINT " # "3 

NEXT A 

PRINT "shiftT 2 shifta" 
PRINT 

FOR A = 1T0 28-8 
PRINT " # M3 

NEXT A 

PRINT "shiftT 3 shifta* 
PRINT 

FOR A = 1 TO 28 ~ F 
PRINT " * Wy 

NEXT A 


PRINT "“shiftT 4 shifta" 

IF E> 26 OR D> 26 OR C > 26 OR ED 26 THEN STOP 
GosuB 194 

CLS 

GOTO 24¢ 


JOYBOX 


JOYBOX is a 1K fruit machine that behaves just like the 
ones you see lurking in pubs, except the money you win and 
lose goes nowhere except into the ZX80’s variables store. 
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This program pays out with about the same frequency as a 
real machine, with the contents of the reels, and the chance 
with which they come up, stored in the REM statement in 
line 10. Make sure you input the program exactly as listed, 
or you'll end up with some strange fruit. The score reel is the 
middle one of the three displayed, except for + BAR + Pays 
out when there are three in a row in any direction. You have 
to pay for each go. Input @, then NEWLINE to pull the 
handle. If the HOLD option comes up, input the number(s) 
of the reel(s) you want to HOLD, with NEWLINE in between 
each one, then @ to get things underway again. 


19 REM XCHERRYLEMON..PLUM, ORANGE* BELL *999000111111 
2222223333344 
2¢ DIM A(8) 
39 DIM H(5) 
4¢ LET A = 209 
50 LET B = @ 
69 FOR Z = B TO 5 
18 LET H(z) = @ 
89 NEXT Z 
99 FOR Z = @ TO 8 
199 IF H(z - 3*(2z/3)) = 1 THEN GOTO 12¢ 
ie Tents) a umn bat mt Bn 3ete/3) 
mz LET H€ Z -— 3*(Z = 
i aes 3*(Z/3) + 3) = 1 
149 LET W= @ 
15d IF A(3) = A(4) THEN LET w= 19 
169 IF A(4) = A(5) AND W = 19 THEN LET W = 19*A(3) + 19 
17¢ IF Hts }*n(ayeH(s) = 1 THEN LET W = 199 
189 LET A=- A + W ~~ 5 
199 FOR Z = @ TO 2 
299 LET H(Z) = @ 
219 NEXT Z 
220 LET H = # 
23¢ IF A ¢ 68 + RND(26f) THEN LET H = 1 
249 CLS 
250 PRINT 
269 FOR Zz = @ TO 8 
278 PRINT " * # ® Ms 
289 FOR J = 2 TO 7 
290 PRINT CHRS(PEEK(16426 + 6*A(Z) + J); 
349 NEXT J 
3141p IF 3*((Z 7 = Z + 1 THEN PRINT 
329 IF 3*((Z 1)/3) = Z + 141 THEN PRINT 
33¢ NEXT Z 
349 PRINT 
35¢ FOR Z = @ TO 2 
369 IF H(Z) = 1 THEN PRINT “ * * * +HEL D+ "3 
378 IF H(z) = @ THEN PRINT " Ospaces"y 


389 NEXT 2 


390 FOR Z = 1 TO 5 

499 PRINT 

41¢ NEXT Z 

429 IF W ; @ THEN PRINT ,"PAYS * ";W 
439 PRINT ,"YOU NOW HAVE * MA pn 
449 IF H = 1 THEN PRINT "HOLD OR * "; 
45¢ PRINT "START® 

469 INPUT N 

4716 LET B = 

48¢ IF H*N = - THEN GOTO 6¢ 

499 LET H(N ~ 1) = 1 ~ H(N ~1) 


500 GOTO 2496 


CRAPS 


In THE COMPLETE BOOK OF DICE GAMES, Skip Frey 
describes Craps as “‘the premier dice game”’. According to 
Mr Frey, “it is played everywhere from back alleys to posh 
casinos in Las Vegas and Monte Carlo’. Despite this 
glowing description, it can become a very dull game indeed 
when played with a computer. After all, to play the game 
you just roll dice, and if you have your trust ZX80 doing this 
for you, there isn’t much else to do. Therefore, we've jazzed 
up the program a bit, to save you falling asleep at the 
keyboard. This Craps program gives you a starting stake of 
£20, and then adds to it, or takes away, in accordance with 
your luck with the dice. 


OFFICIAL TERMS FOR CRAPS: 


NATURAL — A 7 or an 11 on the first roll is a 
NATURAL. Roll this, and you win. 


CRAPS — A 2,3 or 12 on the first roll is CRAPS. 
Roll this, and you've lost. 


POINT — A 4,5, 6, 8, 9 or 10 on the first roll 
becomes your POINT. In the program, 
the variable E is your point. 
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lf you don’t roll a natural or craps, you continue to roll until 
you “make your point”. In this game, see line 279, you win 
the grand sum of £25 if you make your point. However, and 
this is a big however, if you throw a 7 before you make your 
point, you lose (line 120). The program subtracts £3, plus a 
pound for every roll of the dice you’ve made in that game. 
So long as you manage to end a game with £1 or more, the 
ZX80 will offer you anew game on this 1K program. 


5 LET M = 2g 

if LET A = @ 

29 LET E = @ 

39 PRINT ,"PRESS N/L TO ROLL* 
49 INPUT AZ 

58 GOSUB 32¢ 

6g LE? B = RND(6) 

19 LET C = RND(6) 

89 LET D= B+c 

99 LET A= A + 1 

95 IF A = 6 THEN CLS 

97 IF A = 6 THEN LET A = 2 
199 IF A = 1 THEN GOTO 15¢ 
119 IF D = E THEN GOTO 27¢ 
12g IF D = 7 THEN GOTO 399 


138 PRINT "TIE DICE CAME UP * "3Bs" * *5C, "TOTAL * "3D 
149 GOTO 49 = 

= 11 THEN GOTO 199 

= 12 THEN GOTO 219 


198 PRINT "YOU ROLLED * "3Ds3" * SO YOU WIN® 

195 LET M=M+5 +A 

288 GOTO 229 

219 PRINT "FATE GAVE YOU *® "3D;" * SO YOU LOSE" 
228 PRINT "YOUVE GOT £"3M 

222 IF M < 1 THEN STOP 

225 PRINT ,,,,,"ANOTHER GAME?" 

239 INPUT AZ 


246 CLS 
25¢ IF NOT AZ = "NO" THEN GOTO 19 
269 STOP 


278 PRINT "THAT TIME YOU GOT * "3D 

288 LETM=M+5 4A - 

298 GOTO 22¢ 

369 PRINT "FOOL, YOU BLEW IT BY ROLLING * "3D 
385 LET M=M-=-%3- A - 

312 GOTO 22¢ 

52¢ FOR F= 1 TO 199 

33g NEXT F 

349 RETURN 


NOGOMOKU 


This version of the allegedly oriental game of GOMOKU is 
called VOGOMOKU because it does not play particularly 
well (something of an understatement!). However, it is an 
interesting game, in which the entire board and state of play 
is stored in a REM statement, which changes as play 
progresses. The aim of this 1K (on the old ROM, it needs 
more memory on the new ROM machines) NOGOMOKU is 
to get five in a row, either horizontally, vertically or 
diagonally. There is no facility in the program for the 
computer to know when the game is over, nor who has 
won. 


You can, at any time, terminate play by entering an ‘‘X”’ 
when the computer gives you a move prompt. Just input 
the number, as indicated below, relating to the square on 
_ which you wish to place your piece. If you get tired of 
matching your wits with the ZX80, you can change the 
game to AUTONOGOMOKU by deleting line 20, changing 
line 15@ to LET A = RND(49) and line 140 to LET C = 
RND(10). Then add: 175 INPUT A$. Examine the board 
after each two moves, and let the winner be the first to get 
three in a row in any direction. 


The key for moves: 

1 2 3 4 5 6 7 

8 9 10 11 12 13 14 
15 16 17 18 19 20 21 
22 23 24 25 26 27 28 
29 30 31 32 33 34 35 
36 37 38 39 40 41 42 
43 44 45 46 47 48 49 


oats 
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REM (49 full stops) 

RANDOMISE 

FOR E = 16427 TO 16475 

PRINT E, 18 

NEXT E 

LET D = ¢ 

PRINT 

PRINT 

PRINT , 

FOR E = 16427 TO 16475 

LET D= D+ 1 

PRINT CHRS(PEEK(E));" * "5 

IF 71*(D/7) s D THEN PRINT Saxe vo 99 

NEXT E 

INPUT A 

IF A<1 OR A}49 OR NOT PEEK(16426 + A) = 18 
THEN GOTO 15¢ 

POKE 16426, 18¢ 


CLS 

LET Z = @ 

LET GC = ~- 2 + RND(3) 

LET F = Z + 16426 +A 40C 

IF NOT PEEK(F) = 18 THEN LET Z = Z + 1 
IF Z = 1 THEN LETA=A+4+47-0C 

IF Z = 2 THEN LET A = A - 8 

IF Z = 3 THEN LET A & A +# 2 

IF Z «= 4 THEN LET A = A +8 

IF Z> 4 THEN GOTO 19¢ 

IF Z> @ THEN GOTO 224 

IFA+C< 1O0ORA +4 C0 > 49 THEN GOTO 199 
POKE PF, 189 

RUN 6¢ 





HELEN’S BOOGIE 


This 1K gameis a kind of snakes and ladders on a board of 24 
squares. You throw a die which determines how many 
squares along the board you advance. 


1958 


1969 
1978 
1989 


DIM A(2) 

RANDOMISE 

LET A(1) = 9 

LET A(2) = 

FOR Z = 1 TO 2 

GOSUB 196¢ 

IF J < @ THEN LET J = @ 

PRINT "PLAYER * "3;Z;", * YOU THREW A * "3J 
PRINT "YOU ARE NOW ON * ";A(Z) 

FOR W = @ TO A(Z) 

PRINT CHRS(128);CHRS(129);"shifta"; 
NEXT W 

PRINT 

PRINT 

NEXT Z 

IF A(1)>23 OR A(2) 9 23 THEN GOTO 268 
INPUT AZ 


PRINT "PLAYER * "3 ~1*%(A(1)> A(2)) - 2*(A(2)> A(1)); 
n * WINS, WITH" 

PRINT ,ABS(A(1) - A(2))*"173;" * POINTS" 

POKE 16421, 24 

STOP 


FOR G@ = 1 TO RND(25) 

LET J = RND(6) - RND(2) 

NEXT G 

LET A(Z) = a(z) + J 

IF, A(Z) = 5 OR A(Z) = 17 THEN GOTO 19¢¢ 

LET Y = -~4#(A(Z) = 2 OR A(Z)= 14) + 2"(A(Z) = 3 OR A(Z) 
= 15) + 3*(A(Z) = 4 OR A(Z) = 16) + 
(A(Z) = 7 OR A(Z) = 2) + “apo 
(A(Z) = 19 OR A(Z) = 

LET A(Z) = A(Z) + Y¥ 

IF A(z) < @ THEN LET A(z) = @ 

RETURN 


This is a very frustrating game which makes very effective 


use of the 1K on an old ROM ZX80. You are a soldier 
(actually, you’re the letter X, but this is a ZX80, not an IBM 
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HORROR 2017) trying to wend your way through army 
territory (translation: Trying to move from the right to the 
left of the screen) without either landing on top of an enemy 
(a black blob) or accidentally bumping into one. But it is a 
game you cannot win. No sooner do you make it across the 
enemy territory when you're whisked back to the start, to 
begin your tireless trek again, through an ever-increasing 
enemy hoard. When you finally die, you'll be given a score 
which is related to how long you've survived. Anything 
higher than 132 is very good. You move by entering a 7, 
then NEWLINE to move up, 6 to move down and 5 to move 


forward. 

1g GOSUB 19¢ | 

29 IF PEEK (C*33 4 D+ 1 + PEFK(Z) + PEEK (Z + 1)*256) = 61 
OR PEEK (Y¥"33 4 X + 1 4 PEEK(Z) + PEEK (Z + 1) 
*256) = 128 THEN GOTO 17¢ 

39 POKE ¥*33 + X + 1 + PEEK(Z) + PEEK(Z + 1)*256, 61 

4¢ POKE C*#33 + D+ 4 + PEEK(Z) + PEEK(Z + 1)*256, 128 

59 INPUT AS 

69 LET K = K + 1 

19 POKE ¥*33 4+ X +14 P 

8g IF AZ = "5" THEN LET 

99 IF AS = “7 THEN LET 

199 IF AZ = "6" THEN LET 


11¢ LET C = RND(8) 

12¢ LET D = RND(3¢) 

136 IF X< 2 THEN LET X = 
149 IF Y¥< 2 THEN LET Y = 
15¢ IF Y?9 THEN LET Y = 
16g GOTO 29 

179 PRINT "YOUR SCORE: 
184 STOP 

19¢ FOR J = 1 TO 19 
298 PRINT 59> 

219 NEXT J 


tx 


2298 LET X = 31 
239 LET Y = 2 
249 LET Z = 16396 
258 LET C = 1 


H 


268 LET D 
278 RETURN 


1 





118 


BATTLE 


This game pits your skill against five marauding black blobs. 
At the beginning of the game, you — and the lumbering 
black blobs — are placed randomly within a frame on the 
screen. You move by entering a letter (N for north, E to 
move east and so on or Q if you want to stop the game). If 
you wish to keep moving in the same direction, just press 
NEWLINE when the prompt appears. One of the black 
blobs will move each. You are the dollar sign (9 and your 
million, should you decide to accept it, is to try and wipe out 
all the black blobs by landing on top of them before you've 
used up your 20 moves. 


However, when you get near a blob, you are in danger of it 
landing on top of you. You are safe so long as you stay more 
than three spaces away from a blob. If a blob lands on top of 
you, the game is generally over. 


Your score is shown to the left of the frame (the top 
number), while the bottom number counts off your moves 
(showing the last digit only). The game is complicated by 
the fact that the blobs, once erased, refuse to stay erased, 
and will return at a random time to plague you again. If a 
blob lands on you, you are — as we've said — generally done 
for, but a benevolent line in the program (91@)allows you to 
escape from time to time. 


A further complication is caused by a coding trick which 
makes youvanish at random intervals, so you have to make 
your next move “‘blind’’. You will, however, always appear 
at the next move, unless you've been squashed. 


18 - 138 VASEY MOVING DISPLAY (A = 19999, line 5¢ GOTO 229) 
208 POKE ¥ * 33 + X + 4 + PEEK(16396) + PEEK (16397)*256, K 
218 RETURN 

228 LET XX = @ 

239 GOTO 99¢¢ 

499 PRINT "DIRECTION? (N S E W)*" 
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LET Y = 11 

LET MOVE = MOVE + 14 
IF MOVE = 29 THEN LET T = 9 

IF MOVE = 2% THEN GOSUB 1¢¢ 

IF MOVE = 29 THEN GOTO 9599 

LET X = 3 

LET K = CODE(STRS(SI))+ 128 

GOSUB 2¢¢ 

LET Y = 13 

IF MOVE < 19 THEN LET K = CODE(STRZ(MOVE)) + 128 

IF NOVE>9 THEN LET K = CODE(STRZ(MOVE - 9)) + 128 
GOSUB 2¢¢ 

INPUT BS 

IF BS = "" THEN LET BZ = CBZ 

LET Y= A 

LET K = @ 

LET X = B 

GOSUB 2¢¢ 

IF BZ = "Q" THEN STOP 
IF BS = "N" THEN LET A = 
IF BY = "3" THEN LET A = 


# RMR Ht 


IF BS = "E" THEN LET B 
IF BZ = "W" THEN LET B 


wh > > 
++ 1 
— ab ah bh 


IF B ¢< 9 THEN LET B = 9 
IF B>21 THEN LET B = 21 
IP A< 8 THEN LET A = 8 
IF A>2@ THEN LET A = 2¢ 


FOR C = 1 TO 5 

IF Y¥(C) = A AND X(C) = B THEN LET SI = SI + 1 
NEXT C 

LET Y = A 

LET CZ = AZ 

LET X = B 

LET K = 13 

GOSUB 299 

GOSUB 1¢¢ 

LET E = RND(5) 

LET K = ¢ 

LET Y = Y(E 

LET X = X(E 

GOSUB 269 

LET Y(E) = Y¥(E) + RND(3) - RND(3) 
LET X(E) = X(E) + RND(3) - RND(3) 
IF Y¥(E)<¢ 9 THEN LET Y(E) = 9 

IF ¥(E) > 16 THEN LET Y(E) = 16 
IF X(E)€ 9 THEN LET X(E) = 9 

IF X(E)> 2¢ THEN LET X(E) = 29 
LET Y = Y¥(E) 

LET X = X(E) 

LET K = 128 

GOSUB 2¢¢ 

GOSUB 199 

POR C=» 1 T0 5 


IF ¥(C) = A AND X(C) = B AND RND(3) = 1 THEN GOTO 959¢ 
NEXT C 
GOTO 599 


LOGICA 


DIM Y¥(5) 

LET SI = @ 

LET MOVE = - 1 

DIM X(5) 

LET CZ = "BE" 

LET T = 249 

FOR A = 1 TO 5 

PRINT 455, 

NEXT A 

PRINT ,"(15 shift w)",, 
FOR A = 1 TO 12 

PRINT , “(shift Q 13 spaces)";CHRS(139),, 


FOR A «= 1 T0 5 
7 + RND(1¢) 
8 + RND(12) 


GOSUB 294 

GOSUB 19¢¢ 

NEXT A 

LET A = 7 + RND(1#) 
LET Y = A 

LET B = 8 + RND(12) 
LET X = B 

GOSUB 2¢¢ 

GOTO 49¢ 


CLS 

PRINT "THE BATTLE IS OVER" 
PRINT 

PRINT "SCORE * ";SI “a 
PRINT ,"IN * “;MOVE;" * MOVES" (IQR 
PRINT 





LOGICA lets you zero in on a target number chosen 
between one and 60, by giving you clues in the form of 
letters of the alphabet. Play this one a few times, and you'll 
learn how to interpret the computer responses to your 
guesses. Note how RUN nis used in this 1K game, and how 
the “secret number’ and other information is stored in a 
non-volatile manner in the REM statement. 
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REM 777 
POKE 16427, 1 

RANDOMISE 

POKE 16428, RND(69) 

GOTO 124 

PRINT , PEEK (16429);" * IS WRONG" 

PRINT 

PRINT " * * HIERE IS A HINT" 

PRINT 

FOR A = 1 TO ABS(PEEK(16428) - PEEK(16429))/2 
PRINT CHRS(A + 37), 


NEXT A 
PRINT 

PRINT " * * OK BEACH BOY, WHAT NUMBER," 

PRINT " * * BETWEEN 1 AND 64, AM I" 

PRINT " * * HOLDING IN MY Z89 CHIP?" 

PRINT 

PRINT " * * THIS IS GUESS NUMBER * ";PEEK (16427) 
POKE 16427, PEEK(16427) + 1 

INPUT B 

CLS 


IF B = PEEK(16428) THEN RUN 39¢ 

POKE 16429, B 

GOTO 5¢ 

CLS 

PRINT ,“YOU ARE RIGHT" 

PRINT 

PRINT "I WAS THINKING OF * "3; PRINK(16428) 
PRINT 

PRINT "YOU GOT IT IN JUST * "“;PEEK(16427)3% * GUESSES® 
INPUT AZ 

CLS 

IF AS = "" THEN RUN 


FALLEN COMRADES 


FALLEN COMRADES is essentially a 1K Russian Roulette 
program for three people. Enter three names, and then leave 
your life, and the lives of your friends, in the hands of the 
Sinclair random number generator. If you've got more 
memory, you can easily expand the game for a whole 
baseball team of comrades. 


RANDOMISE 

LET EX = " * SURVIVES" 

PRINT "NAME OF PLAYER 17° 

INFUT AZ 

PRINT ,"AND 2?" (note: get the AND from the ‘shift 
INPUT BZ 

PRINT ,"AND 37" 

INPUT CZ 


LET Z = @ 

CLS 

LET Z= 2+ 1 

PRINT 

PRINT ,"PRESS NEWLINE TO FIRE" 
INPUT DS 

PRINT 

PRINT 

PRINT AS, BS, CZ 

PRINT 

IF AZ = "" THEN GOTO 749 

LET A = RND(19) 

IP NOT A = 5 THEN PRINT "CLICK": 
IF A = 5 THEN PRINT "BANG": 

IF A = 5 THEN LET AX = "8 

IF BS = "" THEN PRINT , 

IF BY = "" THEN GOTO 3¢¢ 

LET B = RND( 19) 

IF NOT B = 5 THEN PRINT, "CLICK"; 
IF B = 5 THEN PRINT ,"BANG"; 

IF B= 5 THEN LET BAZ = "4" 

IF CZ = "" THEN GOTO 359 

LET C = RND(19) 

IF NOT C = 5 THEN PRINT , "CLICK" 
IF C = 5 THEN PRINT ,"BANG" 

IF C = 5 THEN LET CX - e 


PRINT 
PRINT 
IF AZ = "" AND BA - *" THEN PRINT CH; A 


IF AZ = "" AND CZ = "" THEN PRINT BS: ES 

IF BZ = "" AND CZ = "" THEN PRINT AS; ES 

IF (CODE(AZ) + CODE(BZ) = 2) OR (CODE (AZ) + CODE(CSZ) = 2) 
OF (CODE (BZ) + CODE(CS) = 2) THEN STOP 

PRINT 


PRINT ,"THIS IS ROUND NUMBER * "3Z 
INPUT 23 
Goro 199 


VENUS LANDER 


Forget about lunar landers. This oneis, for some reason, set 
above misty Venus. Once you've managed to land your 
tumbling space craft successfully a number of times, make 
things more difficult by reducing your starting fuel (line 33@) 
or by changing your initial speed (line 340). Venus Lander 
runs in 1K on an old ROM 2X80. 


GOSUB 329 

CLS 

PRINT ,"HEIOHT", "FUEL", "SPEED" 
PRINT ,H,F,S 

FOR A = 1 TO 16 ~ H/19¢9 
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5¢ PRINT 


69 NEXT A 

1é FOR B = 1 TO 11 + RND(5) 

89 PRINT * # ‘3 

9¢ NEXT B 

19¢ LET J = RND(2) 

119 IF J «= 1 THEN PRINT "(shift F shift @ shift D)*" 

12¢ IF J = 2 THEN PRINT "(shift R shift T shift &)" 

13¢ FOR A = 16 ~ H/19¢ TO 16 

149 PRINT 

15¢ NEXT A 

16¢ PRINT "(random set of 32 graphics symbols to represent 
the surface of Venus)" 

17¢ INPUT T 

18¢ IF F-~ T < 4 THEN LET T = @ 

199 LETS e« 3 + 83/19 +5 -T 

299 LET H = H- 8 

219 IF H>169¢ THEN GOTO 29¢ 

229 LET F « F -~ T/3 

230 IF H> @ THEN GOTO 29 

249 IF $>1¢ THEN GOTO 27¢ 

258 PRINT "SUCCESSFUL LANDING * "3F*233" * POINTS" 

269 STOP 

278 PRINT "CRASH LANDING, FORMING * "; S * RND(7), 

"METRE CRATER" 

266 STOP 

299 CLS 

306 PRINT ABS(S);" —~ ESCAPE VELOCITY space shift F shift G 


shift D space"; 
319 GOTO 34¢ 
32¢ LET H = 156% + RND( 190) 
339 LET F = 99 + RND(75) 
348 LET S = 18 + RND(1¢) 
35¢ RETURN 


BERMUDA TRIANGLE 


BERMUDA TRIANGLE is an excellent 4K program to 
demonstrate “machine _ intelligence’. BERMUDA 
TRIANGLE owes debts to both chess and draughts/ 
checkers. ..and also, of course, to that famous holiday 
resort where people, planes and ships have mysteriously 
vanished. You can move one square at a time in any 
direction on the triangular board. You move by just 
inputting the piece you want to move, in the form B4 then 
NEWLINE, then the square, say B3, you want to move to. 
When the screen clears, you'll see your piece in its new 
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position (you are the letter ‘‘O’’) and the computer’s 
response (it is the ‘’X’’). You capture by landing on top of 
the computer's pieces. First player to capture four of the 
opponent's pieces wins. Although it takes a while to set up 


4 





the board at the start of the game, the computer's response 
time is generally very quick. Few moves should take more 
than 20 seconds, and most will take less. 


1g 


GOSUB 
CLS 

PRINT 
IF SI 
IF SM 
PRINT 
PRINT 
PRINT 
FOR X 
PRINT 
FOR J = 
PRINT 


9988 


- 4 THEN LET Q = 1 
« 4 THEN LET Q = 2 
"SCORE * * ME * "gSI, "YOU * "33M 


ee ere ghaen 
= § T 


0 7 
,CHRS(X + 166); CHRS(128); 
g TO X 
CHR (A(8¢ - 9*X - J))} 
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1989 
19998 
1199 
1192 
1195 
1196 
1197 
1198 
1199 
14115 
1129 


NEAT J 

PRINT CHR#( 128) 

NEXT X 

PRINT ,CHRS(128); 

FOR J = @ TO 8 

IF J = $9 THEN PRINT CHRS(128); 
IF J > @ THEN PRINT CHRS( J + 156); 
NEXT J 

PRINT CIRS(128) 

PRINT , 

FOR J = 1 TO 11 

PRINT CHRS( 128); 

NEXT J 


IF Q = 17 THEN PRIN’? ,"I CONCEDE THE GAME" 
IF Q = 1 THEN PRINT ,,,"I WIN*" 

IF Q = 2 THEN PRINT ,,,"YOU WIN" 

IF Q >? @ THEN STOP 

PRINT 


IF C$ > "" THEN PRINT "YOUR LAST MOVE WAS TO * "30% 
PRINT “THIS MOVE?" 

FROM? (LETTER, NUMBER) " 

INPUT AZ 

IF AZ = "S" THEN STOP 

PRINT AZ3" * TO? (LETTER, NUMBER)" 


INPUT BZ 

LET CZ = BS 

LET G(1) = 451 - 9*CODE(AS) - CODE(TLS(ASZ) ) 
LET G(2) = 451 —- 9*CODE(BS) - CODE(TLS( BS) ) 
IF A(G(2)) = 189 THEN LET SM = SM + 1 

LET ret = 159 

LET A(G(2)) = 189 


REM COMPUTER JUMPS 
LET X = 9 
FOR Z = 19 TO 8 


IF NOT A(Z) = 189 THEN GOTO 3139 

IF A(Z + 9) = 189 THEN LET X = 9 

IF X = @ AND AL + a = 189 THEN LET X = 8 

IF X = @ AND A(Z - 8) = 188 THEN LET X « -8 
eee ay Cane « 189 THEN LET X = 19 
IF X = @ AND A(Z - 19) = 186 THEN LET X = -19 
IF X = #@ AND A(Z - 9) = 189 THEN LET X = -9 
IF X = @ AND A(Z + 1) = 189 THEN LET X = 1 

IF X = @ AND A(Z - 1) = 189 THEN LET XK «= -1 


IF NOT X = @ THEN GOTO 3159 
NEXT Z 


IF X = @ THEN GOTO 3189 
LET A(Z) = 158 
LET A(Z + X) = 189 


LET X = @ 
LET Z = 19 + RND(7#) 


3285 
3287 
3219 


3238 


3234 


3235 
3237 


3249 


LET Y = Y + 1 
IF NOT A(Z) = 189 AND Y 49 THEN GOTO 32¢¢ 1 
IF A(Z) = 189 AND A(Z + 8) = 158 AND NOT A(Z + 16) 
= 189 AND NOT A(Z + 17) = 188 AND NOT A(Z + 7) 
188 AND NOT A(Z - 2) = 188 AND NOT A(Z - 1) 


=» 189 AND NOT A(Z + 9) = 188 AND NOT A(Z + 18) 
» 189 THEN LET X = 8 
IF X = 9 AND A(Z) = 189 AND A(Z + 9) = 158 AND NOT 
A(Z + 19) = 188 AND NOT A(Z + 8) = 188 AND NOT 
A(Z + 8) =» 188 AND NOT A(Z + 19) = 189 AND NOT 
ne + 17) = 189 AND NOT A(Z ~ 1) = 188 AND NOT 
4 1) = 189 THEN LET X = 


9 
IF SI * SM = @ AND RND(4) > 1 OR RND(3) > 1 THEN 
GOTO 3259 
IF Z < 29 THEN GOTO 325¢ 


IF X = 9 AND A(Z) = 189 AND A(Z ~ 8) = 159 AND NOT 
te -~ 16) = 188 AND NOT A(Z - 17) = 188 AND NOT 
A(Z ~ 7) = 189 AND NOT A(Z + 2) = 189 AND NOT 
A(Z +1) = 1889 AND NOT A(Z - 9) = 188 AND NOT 
A(Z ~ 18) «= 18f THEN LET X = - 8 

IF X =» @ AND A(Z) = 189 AND A(Z~ 9) = 158 AND NOT 
A(Z ~ 19) = 188 AND NOT A(Z - 8) «= 188 AND NOT 
A(Z ~ 18) = 188 AND NOT A(Z ~ 19) = 189 AND NOT 
A(Z ~ 17) = 188 AND NOT A(Z + 1) = 188 AND NOT 
A(Z - 1) = 188 THEN LET X = -9 


IF X =» 9 AND Y (198 THEN GOTO 329¢ 
LET Y = 9 

LET Z « 19 + RND(7¢@) 

LET Y = Y + 1 


IF NOT A(Z) = 189 AND Y € 198 THEN GOTO 3299 
IF A(Z + 8) «= 158 THEN LET X = 8 

IF X = @ AND A(Z ~ 8) » 159 THEN LET X = - 8 
IF X = 9 AND A(Z - 9) =» 159 THEN LET X « - 9 
IF X = 9 AND A(Z + 19) = 158 THEN LET X = 1 

IF X = 9 AND A(Z ~- 19) = 158 THEN LET X = ~ 19 
IF X = @ AND A(Z ~~ 1) «= 159 THEN LET X = - 1 
IF X «= 9 AND A(Z + 1) = 158 THEN LET X = 1 


IF NOT X = @ THEN GOTO 89¢¢ 
IF YZ199 THEN GOTO 329¢ 


REM ADMITS DEFEAT 
LET Q = 17 


LET A(Z) = 159 
LET A(Z + X) = 189 
GOTO 594 


DIM A( 185) 

LET Q = g 

LET SI = g 

LET SM = 9 

DIM G(2) 

FOR B= 1 TO 195 
LET a(B) = 9 
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9979 NEXT B 
998¢ FOR B = @ TO 7 

9999 FOR R = # TO B 

919¢ LET A(88 - 9*B —~ R) = 15¢ 
9119 NEXT R 

9129 NEXT B 


9139 LET A(71) = 189 
9149 LET A(35) = 184 
915¢ LET A(62) = 189 
9169 LET A(53) = 189 


91798 LET A(44) = 189 
9189 FOR Z = 11 TO 15 
919¢ LET A(Z) = 189 
92998 NEXT Z 

9219 LET Cs oO 
922g RETURN 


PICASSO 


Here’s your chance to draw pretty pictures in 1K on your TV 
screen, using POKed graphics under cursor control. Pick 
the direction of the line you want to draw, then press 
NEWLINE. Change direction by entering the designated 
key (see below) then press NEWLINE over and over again. 
The ZX80 will automatically choose the most appropriate 
graphics character for the direction of the line you're 
drawing. The line will continue in the designated direction 
until you press another key. This table shows the directions 
away from the centre that you'll move if you input the key 
before pressing NEWLINE: 








19 GOSUB 179 


2g POKE ¥*33 + X + 1 + PEFK(7,) + PEEK(Z + 1)"256, K 
39 LET PZ = AS 

49 INPUT AS 

5¢ IF AS = "" THEN LET AZ = Ps 

69 LET A = CODE(AS) 

19 IF A = 34 OR A = 57 OR A = 35 THEN LET Y = Y ~ 1 
89 IF A = 35 OR A = 51 OR A = 39 THEN LET Y= ¥Y + 4 
of IF A = 47 OR A = 51 OR A = 47 THEN LET X = X 4 1 


199 IF A = 39 OR A = 44 OR A = 57 THEN LET X = X ~ 1 

11¢ LET K = -8*(A =x 39 OR A = 35) -136"(A = 47 OR A = 57) 
~7*(A = 34 OR A = 51 OR A = 44 OR A = 58) 

12¢ IF X€2 THEN LET X & 2 

13¢ IF X> 31 THEN LET X = 31 


14g IF ¥“2 THEN LET Y = 2 | RA ity: Aad) 
158 IF Y) 14 THEN LET Y = 14 Bran 68:51 a> Nat 
16¢ GOTO 29g Ue S =; A rm 75 
176 FOR J = 14 TO 15 ANS Wg ed Re 


18¢ PRINT ,,55 
19¢ NEXT J 

290 LET X = 16 
219 LET K = 6 

228 LET Y=2 7 

238 LET Z = 16396 
249 LET AZ = "# 
258 RETURN 


CHEMIN DE FER 


Baccarat was first introduced into France from Italy in about 
1490, during the reign of Charles VIII. It is most unlikely, 
historians say, that Charles played it on a ZX80. The Italian 
game was called Baccara, and this game — Chemin De Fer 
—is a distant cousin of that old favourite. ZX80 Chemin De 
Fer is based on a dice version of the casino game which is 
usually played with cards. You and the ZX80 (the “’banker’”’) 
roll five dice each. If any die comes up 2 or 5, it must be 
rolled again. You add the pips on dice which did not come 
up 2 or 5, and then add to this the total of the pips from the 
dice you've rolled again. The aim is to get as close as 
possible to 9, or to get a two-digit number ending in 9. The 
program automatically strips a two-digit number down to 
its final digit. RUN it a few times, and you'll begin to see why 
this game is so popular. The program allows 9 winning 
games, with dead-heats (or ‘‘stand-offs’’) not counted. The 
winner is the player with the most games out of 9. The game 
as listed needs 2K. Torun itin 1K, just add a CLS after each 
INPUT AS, except the last one, which already has one. 





19 LET Bi = @ 
3g GOTO 344 
4g LET D = @ 
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LET C = g 
FOR G = 1 TO 5 

LET A = RND(6) 

IF A = 2 OR A = 5 ‘THEN LET CGC = C 
IF A = 2 OR A = 5 THEN LET A = @ 
PRINT As" * "3 

LET D= DA 

NEXT G 

PRINT 

PRINT D, 

IF D> 9 THEN LET D = hn - 19 
PRINT D 

IF D> 9 THEN LET D = D -~ 19 
PRINT "TOTAL ON FIRST ROLL IS * "3D 
IF D = 9 THEN PRINT ,"LA GRANDE" 


+ 1 


IF D = 8 THEN PRINT ,"LA PETITE" 
IF D = 7 THEN PRINT , "NATURAL" 
IF C= § OR Da 7 OR D= 8 OR D= 9 THEN” RETURN 


PRINT "MUST ROLL * "303" * AGAIN" 
FOR A = 1 T0 C 

LET £ = RND(6) 

IF E = 2 OR E = 5 THEN LET E = @ 
LET D= D+ E 

NEXT A 

PRINT D, 

IF D > 9 THEN LET D = D - 19 
PRINT D 

IF D> 9 THEN LEI D = D- 19 
RETURN 

PRINT , *BANKER" 

GOSUB 49g 

PRINT "PINAL TOTAL * "3D 
INPUL AS 

LET J = D 

PRINT , "PLAYER" 

GOSUB 4¢ 

INPUT AZ 

PRINT ,"BANKER", "PLAYER" 
PRINT, J,D 

If J = D THEN PRINT ,"STAND-OFFREg 
Ir J = D THEN GOTO 519 be | 
IF J> D THEN PRINT "BANKER"; ¢—ve Mims 
IF J > D THEN LET B1 = Bt + 1 
IF J < D THEN PRINT “PLAYER'S 
IF J < D THEN LET P1 = Pt + 1 
PRINT © * WINS" 

PRINT ,"FOTALS" 

PRINT ,B1,P4 

IF Bt + P1 = 9 THEN STOP 
INPUT AS 

CLS 

GOTO 349 





NOUGHTS & CROSSES 


Nearly everyone knows how to play this game. Moving 
alternately, players put either a zero or a cross in a position 
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this game, the computer always goes first, and unsporting 
thing that it is, always hogs the middle square. There is no 
provision in this program for the player to win. The best you 
can do is draw. At first sight, NOUGHTS AND CROSSES 
might seem a relatively easy game to program, but in fact it 
is not simple at all. And it is more difficult to write a fallible 
program than it is to write a game which is virtually 
unbeatable. According to COMPUTERS, THEIR IMPACT 
AND USE, by Robert E Lynch and John R Rice, there are 
362,800 possible different games of noughts and crosses. 
This program will play 40,320 of them. You move by 
inputting the number of the square you want to put your 
mark in. A key to the squares appears next to the board. The 
programs needs more than 1K. 
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oak 


132 


DIM ACY) 

LET Q = 9 

FOR A = 1 TO 8 

LET A{A) = 128 

NEXT A 

LE! TR = 9 

GOSUB 1999 

LET TR2 = TR 

LET TR = (TR + 1) ~ 8*(TR/8) 

LET TRi = TR 

GOSUB 1999 

IF TR = TR1 + 4 - 8*((TR1 + 3)/8) THEN GOTO 169 
LET TR = TR1 + 4 ~ 8*((TR1 + 3)/8) 
LET Q = 2 

GoTo i999 

LET TR =@ TR1 + 2 ~ 8*((TRI + 1)/8) 
LET TR1 = TR 

GOSUB 1999 

IF TR = TRI + 4 ~ 8*((TR1 + 3)/8) THEN GOTO 259 
LET TR = TRI + 4 ~ 8*((TRI + 3)/8) 
LET Q = 2 

GoTo 199¢ 

IF NOT 2*(TR2/2) = M2 THEN GOTO 299 
LET TR = TR1 4 7 ~ 8*(TR1 + 2)/8) 
LET Q = 2 

GOTO 1999 

LET TR = TR1 + 3 ~ 8*((TR1 + 2)/8) 
LET TRI = TR 

GOSUB 1999 

IF TR = TR1 + 4 ~ 8*((TR1 + 3)/8) THEN GOTO 36¢ 
LET TR = TR1 + 4 ~ 8*((TR1 + 3)/8) 


LET Q2 2 
GoTo 1999 
LET TR = TR1 + 6 ~ 8*((TR1 + 5)/8) 
LET Q = 1 

(NOTE: You can get this to run 
CLS in 1K by deleting 811 the blenk 
PRINT PRINT lines, end compressing 
PRINT the PRINT statements. ) 
PRINT 


PRINT ,"MY MOVE * ";TR 
LET A(TR) = 189 


PRINT 

PRINT ,"1 # 2 * 3",CHRB(A(1))3" * "s3CHRS(A(2))3" 
CHRS(A(3) ) 

PRINT 

PRINT ,"8 * 9 * 4", CHRB(A(8))3" * a 
CHRS(A(4) ) 

PRINT 

PRINT ,"7 * 6 * 5", CHRS(A(7))3" * "sCHRS(A(6))3" 
CHRZ(A(5) ) 

PRINT 


IF Q = 1 THEN PRINT ,"ITS A DRAW" 
IF Q = 2 THEN PRINT ," #* * I WIN" 
IF Q> @ THEN STOP 

PRINT ,"YOUR MOVE, HUMAN?" 

INPUT TR 


IF NOT A(TR) «= 128 TIEN GOTO 1179 
LET A(TR) = 189 
RETURN 


j= 


1x 


lx 


"3 


"3 


SUBTERFUGE 144 


“It’’, whatever it is, hides somewhere on one of 144 squares 
ona12 X 12 grid. A wrong guess is rewarded by POKEing a 
“N” (for no) into the wrong location. This simple program is 
just crying out to be elaborated. Try and introduce some 
feedback for the player, perhaps related to the letter which 
is POKEd into the screen. SUBTERFUGE 144 needs 1K 


LET H = 16396 

LET A = a aed 

LET B = RND(12 

PRINT 

PRINT 

FOR C = 1 TO 12 

IF C = 1 THEN PRINT " * 123456789012 # " 
PRINT ,55> 

NEXT © 

PRINT ," * 123456789012 * " 

FOR F = 1 T0 19 

INPUT D 

INPUT E 

IF D = A AND E = B THEN GOTO 214 

POKE D*33 + E + 1 + PEEK(H) + PEEK (H + 1)*256, 24 
POKE 462 + PEEK(H) + PEEK( H + 1)#256, 156 + F 
NEXT FP 

CLS 

PRINT ,"SORRY, TIME IS UP* 

GOTO 24¢ 

CLS 

PRINT "YES, YOU FOUND IT" 

PRINT “IN JUST * ";F;" * TRIES" 

PRINT "IT WAS AP * "3A;" * "3B 

PRINT ,"ANOTHER GAME?" 

INPUT AZ 


CLS 
IF CODE (AZ) = 62 THEN RUN 


BENJAMIN 


This no-nonsense program needs a strong NEWLINE 
finger. The computer rolls the dice, and uses them to build 
up pictures of poor, square-faced Benjamin. The winner is 
the player who gets Ben's face finished first. 


133 


134 


HANDOMISE 
LEY A = g 
LEP B= ¢ 
LET C = g 
g 
1 
R 


LET D 
FOR F = 
LET E = 
IF E = 1 THEN LET D = RND(6) 

IF FE = 2 THEN LET C = RND(6) 

PRINT 

PRINT ,"DICE * "3F;" * WAS FOR * "SE 
PRINT 

PRINT "PLAYER ONE" 

PRINT "LAST ROLL * "3K, "WANTED * "3A + 1 


t 


IF C = B + 1 THEN LET B = B+ 1 
IF D = A + 1 THEN LET A = A + 1 
LET G = A 

GOSUB 399 

PRINT 


PRINT “"FLAYER Two" 

PRINT "LAST ROLL * "303" * WANTED * "3B 4 

LET G = B 

GOSUB 349 

INPUT AZ 

FOR H = 1 TO 58 

NEXT Ii 

CLS 

IF AZ = "" THEN NEXT F 

STOP 

IF G>@ THEN PRINT , CHRS(135) 3 CHRS(131) 3 CHRS(131); 
CHRS (131) 3 CHRS( 134) 

IF G)1 THEN PRINT ,"shift Q shift R shift E"3cHRA( 134) 

IF G) 2 THEN PRINT ,"shift Q space shift S spaces CHRS( 
CHRS (138) 

IF G> 3 THEN PRINT ,"shift Q  - ";CHRS(139) 

IF G) 4 THEN PRINT ,CHRS(133)3;"shift W2;CHRS( 132) 

IF A“<6 AND BC 6 THEN RETURN 

PRINT "THE GAME IS OVER" 

PRINT "AND THE WINNER IS PLAYER * "3 -1*(A = 6) -2*(B = 6 


THE ENCHANTED 
FOREST 


This game places you smack-dab in the middle, more or 
less, of a forest divided into an infinite number of triangular 
sectors. In one of them hides The Dragon. In others there 
are goblins, and fairies inhabit other sectors. You win the 
game by shooting the dragon. To shoot into, say sector 35, 
just input — 35. 


This is the way it works. You start off in a random sector, 
and are given a choice of sectors into which you can move. 
lf the dragon or a goblin is in the sector in which you land, 
you are rather dead. If you land on fairies, you will be 
transported at random to another sector. The fairies, 
goblins and the dragon do not move about during a game, 
so you can, if you don't get killed in the meantime, work out 
where they all are. You have just three arrows and you kill 
the dragon by shooting it from an adjoining sector. Start off 
you exploration of the enchanted forest by sticking to 
sectors 35 to 65, as you'll have the greatest chance of 
finding the dragon there. 


DIM A(3¢ 
DIM B(ig 
LET 


a 
= 


NEXT Z een enero! ————— 
FOR Z = @ TO 19 i} 

LET A = RND(39) 

IF A(A) = ‘ THEN GOTO 89 
LET A 

ald Biz ro) ; + 35 


ORI "FAIRIES HERE" 
INPUT AS 
LET X = 34 + 2*RND(16) 
LET Y = 7 
CLS 
PRINT "YOU ARE NOW IN SECTOR * "; 
LET A = ~1 
FOR Z = @ TO 19 
IF B(Z) = X THEN LET A = 2/5 
NEXT Z 
IF A = @ THEN GOTO 139 
IF A = 1 THEN PRINT "AND THE GOBLINS HAVE KILLED You" 
IF A = 2 THEN PRINT " 3shiftQ YOU FOUND THE 
DRAGON 3shiftQ " 
IF A> §@ THEN STOP 
PRINT "...YOU CAN MOVE TO * "sX — 43" # "3X 4 43 


w 4 sx 4+ Y 
FOR Z = # TO 2 
LET A(Z) = @ 
NEXT Z 


FOR Z = @ TO 19 

LET D = B(Z) - X 

IF ABS(D) = 1 OR D = Y THEN LET A(Z/5) = 1 
NEXT Z 

LEf D = ABS(D) 


1 


GO 


5 


136 


IF D= 2 OR D= 6 OR D = 8 THEN LET A(2) = 1 
IF A(@) = 1 THEN PRINT %+4+FAIRIES NREARBY++4" 
IF A(1) = 1 THEN PRINT "HFFGOBLINS NEARBY *##* 
IF A(2) « 1 THEN PRINT %#+% DRAGON NEARBY *4%" 
LET A = 2 

PRINT "MOVE?" 


‘GOTO 189 


IF M = ~B(18) THEN GOTO 269 
LET G = G - 

PRINT ,G3;" * AROS LEFT" 
IF G> @ THEN GoTo 42¢ 


SPIRALS 


SPIRALS makes very, very effective use of the 1K on the 
old ROM ZX80, by POKEing an unusual playing board 
directly into PRINT statements. Your aim in this program Is 
to get to the centre of the spiral in the shortest possible time. 
lf you bump into a CHR$(128) you must back out. You 
cannot barge through. There is some very interesting 
coding which puts the score on the screen (see the routine 


starting at line 430). 


PRINT * * * SPIRALS * " 
POKE 16421, 24 
PRINT 


PRINT “.ccoceceeeee™ (Note: These are full 
PRINT ". + . 7Tapaces” stops) 

PRINT ah tal * * @#eeee * hd 

PRINT "| &% eR. RRR. RH. " 

PRINT ", ®.*.,¥ TF. ¥. 

PRINT ". *.¥ , 0. HLH." 
PRINT", *., eR HHMN SHS” 

PRINT ". ®.. ee eee he 

PRINT Ww, eens 


PRINT Wie » J ri] " 

FOR P = 16469 TO "16623 

IF PEEK ( P ) = 27 THEN POKE P, 128 
NEXT P 

POKE 16429, 212 

POKE 16437, 212 


RUN the above program, which will POKE CHRS$(128)’s 
directly into PRINT statements. SAVE this, just in case 
something goes wrong later, then INPUT the following. 


PRINT 

PRINT "YOUR SCORE IS 9999" 

POKE 16414, @ 

POKE 16415, @ 

LET X = 26 

LET A = @ 

IF A = 66 THEN GOTO 53¢ 

INPUT N 

IF N = 5 THEN LET Y 

IF N = 6 THEN LET Y 

IF N = 7 THEN LET Y 

IF N = 8 THEN LET ¥ = X 

IF A AND Y¥ - A THEN GOTO 436 (Note: Enter these 

IF A THEN GOTO 35¢ as listed) 

LET U = X 

LET V = @ 

GOSUB 51¢ 

IF PEEK (PEFK(16396) + PEEK(16397)*256 + ¥) - 128 
THEN GOTO 39¢ 


X 
X 
X 


1 
12 


+iet 


cou # f fl 


LET A = X 

LET U = Y 

LET V = 147 

GOSUB 51¢ 

GOTO 42¢ 

LET A = @ 

LET U = X 

LET V = 128 

GOSUB 51¢ 

LET U = ¥ 

LET V = 19 

GOSUB 51¢ 

LET X = ¥ 

LET 34 = STRS(9999 - PEEK(16414) ~- PEEK 
(16415) #256) 

FOR J = 1704 

LET U «= 147 + J 

LET V = CODE 3% 

GOSUB 51¢ 

LET 3% = TLZ(SZ) 

NEXT J 

aoTo 19¢ 

POKE PEEK (16396) + PEEK(16397)#256 + U, V 

RETURN 

PRINT 


PRINT "GAME OVER" 
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MAHOGANY << -< 9 << ene ee en nn cn ner nee een 19 
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SAN DOWN- <9 ~~ oo nn nn nn nn er nn ne ene ene hg 
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RUSSIAN ROULETTE-----------------2 nee 59 


JUPITER LANDER------------------------------ 60 


MINIVADERS---------------------+--+-- +--+ 61 
SMUGGLERS BOLD~--------=----------=+--+<-+--+-- 62 
S MON mn nn nn a ne ee eee ene 68 
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PERPETUA, SNOWFLAKE, PEA POD, 


SCARSDALE, BLIP BL|P------------------- 70 
WARP0--------------------------------------- 73 
BOWL ING------------------------------------- 74 
SPEEDWAY :---------------------------------- 

RACER, BRANDS HATCH, WISE-MAN---------- 75 
SNAP---------------------------------------- 78 
HADYN---~--------------------------------=-- 79 
UF0----------------------------------------- 80 
SQUASH-~--------- 9-9 ------ one n ene ee 80 
CONVERTING PROGRAMS ZX80/ZX81/new ROM------- 81 
ERROR CODES----~---------------------------- 88 
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DRAUGHTS IN [Krenn nnn meen ne enn ee ene ee ee eee 90 
SPACE-STAT | ON- one ren nn ne ee meen rn nner nme eren 93 
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JOY BOX ~~ 2 on ne ee 111 
CRAP Sone or eet en eee mee ee ee eee ese ee ecmnmam 113 
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LOG! CAn won nm ren nr rr rr nn re eee ene 121 
FALLEN COMRADES------------- en eee ene 122 
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JOIN THE USERS’ CLUB HERE 


( ) Please register me asa member of the National ZX80 
and ZX81 User’s Club, and send me the next 12 issues of the 
monthly club magazine INTERFACE. | enclose £8.50 (UK), 
£11.50 (Europe), £14.50 (elsewhere). 


( ) THE GATEWAY GUIDE TO THE ZX81 AND ZX80 
— Mark Charlton — £5.95 
( ) GETTING ACQUAINTED WITH YOUR ZX81 
— Tim Hartnell — £4.95 
( ) MASTERING MACHINE CODE ON YOUR ZX81 OR 
ZX80 — Tony Baker — £5.95 


National ZX80 and ZX81 Users’ Club, 44-46 Earls Court 
Road, London, W8 6EJ (mail order address only). 


Please send me the indicated items. | enclose cheque for 
fo, made out to NATIONAL ZX80 AND 2X81 
USERS CLUB. 

| have put my name, address and cheque card number on 
the back. 
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(Send this page or a copy). 


This book has listings for every game we thought you might 
want, including GALACTIC INTRUDERS, BREAKOUT, 
DRAUGHTS/CHECKERS, STAR TREK, DEATH MAZE, 
4-IN-A-ROW and an 8K ADVENTURE-type program 
SMUGGLERS BOLD. As well, there are a host of new 
games, and adaptations of old favourites. Many of the 
programs will run in just 1K (including a simplified SPACE 
INVADERS-type program). 


Some of the games are based on chance — the dreaded 
Sinclair random number generator — and others depend on 
skill, both yours and the computer. But we’ve tried to 
ensure that each and every program contains at least one 
programming technique which you'll be able to adapt for 
your own programs. 


You can, if you like, just enter the programs as listed, and 
play them. However, you're likely to get much more 
enjoyment from working with them, altering them as you 
choose, deleting some sections, improving others, and so 
on, until the game carries your personal stamp. Many of the 
1K games can be improved if you have extra memory. At 
the very least, the player prompts can be made more “‘user- 
friendly’, and the rules explained more exactly. 





